Локальное объявление Edit Опции

[Tan]

Добрый день. Не могу решить следующую проблему: необходимо сделать процедуру которая будет записывать определённые символы из моего личного типа в компонент Edit Как объявить локально (в подпрограмме) компонент Edit, чтобы подпрограмма не ругалась ? То есть:

procedure StringShow;
var k: integer;
    Edit1:???;
begin
  Edit1.Clear;
  {тут работаем с EDIT} 

end;

[klem4]

А зачем тебе вообще такое понадобилось ? Можно хранить просто в строке например. А так надо создавать объект класса TEdit ... , например

  E := TEdit.Create(Application);
  with E do try
    Parent := Form1;
    Left := 0;
    Width := 100;
    Height := 50;
    Text := 'Test';
  finally
    //Free;
  end;

Только зачем Edit локально создавать, не понятно ...