[Anitsumi]

Есть кнопка и текстовое поле. При нажатии на кнопку текстовое поле исчезает\появляется.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
if edit1.visible = false then Edit1.Visible := true
else Edit1.Visible := false
end;

А как сделать при нажатии на кнопку вызвать "функцию" ,
которая закроет\покажет текстовое поле.

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
//что-то вызывающее "функцию";
end;

//Сама "функция"
begin
if edit1.visible = false then Edit1.Visible := true
else Edit1.Visible := false;
end;

[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;

[roamer]

Вместо этого:

Код:

 if form1.edit1.visible = false then 
    form1.Edit1.Visible := true
 else 
    form1.Edit1.Visible := false;

можно так:

Код:

form1.edit1.Visible := not form1.edit1.Visible;

[NumLock]

Код:

procedure InvertVisible(Sender: TControl);
begin
  Sender.Visible:=not Sender.Visible;
end;

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

С наступающим Новым Годом!!!