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

[Tan]

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

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

end;