procedure StringShow;
var k: integer;
Edit1:???;
begin
Edit1.Clear;
{тут работаем с EDIT}
end;
procedure StringShow;
var k: integer;
Edit1:???;
begin
Edit1.Clear;
{тут работаем с EDIT}
end;
var Edit1: TEdit;
Edit1.Text:='privet';
E := TEdit.Create(Application);
with E do try
Parent := Form1;
Left := 0;
Width := 100;
Height := 50;
Text := 'Test';
finally
//Free;
end;