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