[Ildar-tsr]

Код:

procedure TForm1.Knopka(But: TButton; h,w: integer);
begin
  But.Height:= h;
  But.Width:= w;
end;

Вызов:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Knopka(Button1,50,50);
end;