var Form1: TForm1;
A, B, kosyndy: Integer;
procedure kos(A, B: Integer);
implementation {$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin A:=StrToInt(Edit1.Text);
B:=StrToInt(Edit2.Text);
Kos(A, B);
Caption:=IntToStr(kosyndy);
end;
procedure kos (A, B: Integer);
begin kosyndy:=A+B;
end; Мұнда процедура оны шақыруды ұйымдастыратын өңдеуіштен кейін орналасты және процедура тақырыбы мәліметтерді сипаттау блогына енгізілді. Бұл бағдарлама сол себептен орындалады. Бірақ оның орындалуы онша нақты емес сияқты.
Енді осы операцияларды функция көмегімен атқарайық:
var Form1: TForm1;
A, B, kosyndy: Integer;
function kos (A, B: Integer): Integer;
implementation {$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin A:=StrToInt(Edit1.Text);
B:=StrToInt(Edit2.Text);
kosyndy=kos(A, B);// бұл жерде ненің, қайдан //алынатындығы әлдеқайда түсінікті сияқты
Caption:=IntToStr(kosyndy);
