Cara Membuat Program Procedure And Function

      Var LBalok:Integer;
begin
     EVolume.Text :=VBalok(EPanjang,ELebar,ETinggi,LBalok);
     ELuas.Text := IntToStr(LBalok)+' cm2';
end;
procedure TForm1.BResetClick(Sender: TObject);
begin
     Reset
end;
procedure TForm1.EPanjangKeyPress(Sender: TObject; var Key: Char);
begin
     If Not (Key in ['0'..'9',#8,#13])then Key:=#0;
end;
     procedure TForm1.btnkeluarClick(Sender: TObject);
begin
halt;
end;
begin
     Reset
end;
procedure TForm1.EPanjangKeyPress(Sender: TObject; var Key: Char);
begin
     If Not (Key in ['0'..'9',#8,#13])then Key:=#0;
end;
     procedure TForm1.btnkeluarClick(Sender: TObject);
begin
halt;
end;
begin
halt;
end;