tfilestream

[lord_viper]

با سلام این برنامه 2 تا فایل exeرو به هم میچسبونه این بخش serverهستش نمیدونم مشکلش چیه که وقتی روش کلیک میکنی خروجی نمیده یه صفحه داس میاد و میره و دیگه هیچی ولی اکه serverساخته شده رو با این باز کنم یعنی openfilefor readرو serverساخته شده بدم فورا خروجی دو تا فایل رو میسازه نمیدونم مشکل از کجا اب میخوره اینو باید تا شنبه تحویل بدم یه نگاه بندازین ببینین مشکلش کجاست

کد:
procedure TForm1.FormCreate(Sender: TObject);
var
a,s,d:tfilestream;
f:string;
z,x:string[9];
c,v:integer;
begin
f:=extractfilepath(application.ExeName);
a:=tfilestream.Create(application.ExeName,fmOpenRead or fmShareDenyWrite);
s:=tfilestream.Create(f+'exe1.exe',fmCreate);
d:=tfilestream.Create(f+'exe2.exe',fmCreate);
try
a.Seek(-20,soFromEnd);
a.Read(z,10);
a.Seek(-10,soFromEnd);
a.Read(x,10);
c:=strtoint(x);
v:=strtoint(z);
a.Seek((-v-c-20),soFromEnd);
s.CopyFrom(a,v);
a.Seek((-c-20),soFromEnd);
d.CopyFrom(a,c);
finally
a.Free;
s.Free;
d.Free;
winexec(pchar(f+'exe1.exe'),SW_SHOW);
winexec(pchar(f+'exe2.exe'),SW_SHOW);
end;
end;
end.