Funktion oder procedure???

[Sourcemaker]

Delphi-Quellcode:

procedure Tfrm_verleih.mietbetragberechnen( var edt: TEdit );
begin
with frm_verleih do
begin
   edt.Text := edt_laenge.Text;
end;
end;

Gruß

Frank