Вызов процедуры в процедуре

[alexvav]

Подскажите, кто знает.
Есть некая процедура, например:

procedure TForm1.Button1Click(Sender: TObject);
begin
 DBGrid1.Columns[1].Width:=250;
 DBGrid1.Columns[4].Width:=200;
end;

Могу ли я в любой другой процедуре написать например:

procedure TForm1.Button2Click(Sender: TObject);
begin
<какой-то  код И...>
procedure TForm1.Button1Click(Sender: TObject);
end;

т.е. при нажатии на вторую кнопку, выполнялось действие, которое прописано на первую кнопку БЕЗ копирования всего кода.

Спасибо.

[Человек_Борща]

Да можно вызывать:

var
 a,b,c:integer;

Procedure Sum;
begin
c:=a+b;
end;

Procedue Buttom1Click(Sender:Tobject);
begin
a:=5;b:=10;
Sum; //вызываем процедуру
ShowMessage(IntToStr(c)); //выводим полученное значение С
end;

Если вас интересует вызов нажатие одной кнопки из другой то, это тоже можно, но тооько чуть по другому:

procedure TForm1.Button1Click(Sender: TObject);
begin
 DBGrid1.Columns[1].Width:=250;
 DBGrid1.Columns[4].Width:=200;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//какой-то код
Button1.click; //У кнопок есть метод click который позволяет нажать на кнопку
{Но можно и
Button1Click(Self);}
end;

[ArtGrek]

чуть чуть дополню
можно и параметры посылать
на коленке

procedure NewProcedure(a:string; b:integer; c:TObject;);
begin
  a := a + IntToStr(5 + 5) + 'Hello'; // = Hi10Hello
  b := b*7;  // 21
  Timage(c).Left := 100; // Image1 переместица на позицию 100
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  str: string;
begin
  ...
  str := 'Hi';
  NewProcedure(str, 3, Image1);
end;

проверено

function TForm1.NewFunction(a:string ):Boolean;
begin
  if Length(a) > 0 then NewFunction := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ...
  if NewFunction('проверка') = True then ShowMessage('OK');
end;

[alexvav]

Человек_Борща, спасибо за Button1.click (как я мог упустить!). В моём случае это самый подходящий вариант, потому что надо выполнить не просто переменную, а последовательность действий раннее уже описанных.