Перенос функции в форму.

[Meridian]

Подскажите пожалуйста, как перенести функцию в форму.

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
var
a,c,d,sum,i,sum2,h:integer;
function Dise(a,b:integer):integer;
begin
  i:=1;
   while i <= 10 do
   begin
sum:= random (a)+ b;
  if sum > a then
  begin
    sum:=a;
  end;
  if b > a then
  begin
  sum:=0;
end;
  sum2:=sum2+sum;
  h:= sum2 div 2;
   i:=i+1;
   end;
end;

В а вводится значение от, в b до которого выводить случайное число.
В цикле прокручивает 10 раз. В конце выдаёт сумму и средние значение.
В форме 2 поля Edit1 и Edit2 в них вводится значение а и b, выполняется функция и в Label1 выводится сумма и средние значение. Подскажите как это записать?

[SERG1980]

можно по клику кнопки

procedure TForm1.Button1Click(Sender: TObject);
begin
 label1.caption:=inttostr(Dise(strtoint(edit1.Text),strtoint(edit2.Text)));
end;

но ф-ия если не ошибаюсь даёт один параметр (или сумма или сред знач). А так можно сделать процедуру в выходными параметрами

[Meridian]

Сообщение от SERG1980

можно по клику кнопки

procedure TForm1.Button1Click(Sender: TObject);
begin
 label1.caption:=inttostr(Dise(strtoint(edit1.Text),strtoint(edit2.Text)));
end;

но ф-ия если не ошибаюсь даёт один параметр (или сумма или сред знач). А так можно сделать процедуру в выходными параметрами

Я просто не так написал. Мне надо, что бы из edit1 и edit2 передовалось в a и b. А из sum2 и h в label1. Я вот думаю может я не так ф-цию написал.