Težave v Delphiju

Živio! Sedaj pišem program v delphiju za šolo pa mi noče zagnati lastne procedure ko jo kličem za klik na gumb. Zadeva zgleda takole.

Procedure concat1;
var
ed1,ed2:string[25];
ed4:string[50];
begin
ed1:=Edit1.Text;
ed2:=edit2.Text;
ed4:=concat(ed1,ed2);
Edit4.Text:=ed4;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
concat1;
end;

Če pa napišem isto proceduro (concat1) samo da je direktno pod Button1 zadeva deluje.

Procedure TForm1.Button1Click(Sender: TObject);
var
ed1,ed2:string[25];
ed4:string[50];
begin
ed1:=Edit1.Text;
ed2:=edit2.Text;
ed4:=concat(ed1,ed2);
Edit4.Text:=ed4;
end;

vendar jaz bi to rabil da bi delovalo v zgornji obliki. Ali ima kdo kakšno idejo zakaj zadeva ne deluje. Delphi mi ne javi nobenih napak (uporabljam delphi 7) Hvala.

a bi lahko prosim preuredil zgornjo kodo ker te ne razumem