Selbe Procedur mit Button und MenuItem ansprechen?

[new32]

Delphi-Quellcode:

procedure exec();
var f:array[0..4095] of char;
s,r:array[0..16000] of char;
n:array[0..4] of char;
i:integer;
begin
if(isRep()=0)then begin
if form1.unix1.Checked then begin
n[0]:='\';
n[1]:='n';
n[2]:=#0;
end;
if form1.dos1.Checked then begin
n[0]:='\';
n[1]:='r';
n[2]:='\';
n[3]:='n';
n[4]:=#0;
end;
if form1.mac1.Checked then begin
n[0]:='\';
n[1]:='r';
n[2]:=#0;
end;
cpy(f,PChar(form1.edit1.Text));
cpy(s,Pchar(form1.memo1.Lines[0]));
if(form1.memo1.Lines.Count>1) then add(s,n);
for i:=1 to form1.memo1.Lines.Count-1 do begin
add(s,Pchar(form1.memo1.Lines[i]));
if(i<>form1.memo1.Lines.Count-1)then begin
add(s,n);
end;
end;
cpy(r,Pchar(form1.memo2.Lines[0]));
if(form1.memo2.Lines.Count>1) then add(r,n);
for i:=1 to form1.memo2.Lines.Count-1 do begin
add(r,Pchar(form1.memo2.Lines[i]));
if(i<>form1.memo2.Lines.Count-1)then begin
add(r,n);
end;
end;
if(s[0]<>#0) then replacer(f,s,r);
end else MessageBox(application.Handle,'Is busy!','ERROR!',MB_OK or MB_ICONERROR);
end;

"sofern du diese erstellt hast": hab ich.
Diese aber zu posten wäre nen wenig umständlich(viele Quelltextdateien) und rel. lang! und außerdem hat sie immer funktioniert!