derleme için ufak bir yardım F1

[maqro]

s.a
bu kodlar ile bir formu derliyorum. bu kodlarda nasıl bir değişiklik yapsam
yeni derlediğim formda yeni edit nasıl yaratabilirim? ve bu editin içini derleme buttonundan belirleyebilirmiyim?




unit Unit3;

interface

procedure savemyself(Fn:string;FormNo:String);

Type
TExeMarker = Packed record
FormMark : string[20];
FormNo : String[5]
End;
Const
MyMarker : TExeMarker = (FormMark:'deneme';Formno:'1');

implementation
Uses Forms,SysUtils, Unit4, Unit2, Unit1;


procedure SaveMySelf(Fn:string;FormNo:String);
Var
fx : File;
Buf: String;
i : Integer;
Begin
AssignFile(fx,Application.ExeName);
FileMode:=fmOpenRead+fmShareCompat;
Reset(fx,1);
Setlength(Buf,FileSize(Fx));
BlockRead(Fx,Buf[1],Length(buf));
CloseFile(fx);
i:=Pos(MyMarker.FormMark,Buf);
Buf[i+20]:=Char(Length(FormNo));
Move(FormNo[1],Buf[i+21],Length(FormNo));
AssignFile(fx,Fn);
ReWrite(fx,1);
BlockWrite(fx,Buf[1],Length(Buf));
CloseFile(Fx);
End;
end.