[Anitsumi]

Во всём разобрался !

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
name();
end;

procedure name();
begin
if form1.edit1.visible = false then form1.Edit1.Visible := true
else form1.Edit1.Visible := false;
end;