arkadaşlar merhaba sorunum şu server i ve clienti kurdum dosya transfer etmek istiyorm writestream ve readstream komutlarını kullanıyorm ama basarılı olamıyorm kodlar bu cok kısa

***************************SERVER***************** *****************

procedure TForm1.Button1Click(Sender: TObject);
begin
IdTCPServer1.DefaultPort := StrToInt(Edit1.Text);
IdTCPServer1.Active := True;
end;

procedure TForm1.IdTCPServer1Connect(AThread: TIdPeerThread);
begin
Memo1.Lines.Add('Bağlanan Pc ' + AThread.Connection.Socket.Binding.PeerIP);
end;


procedure TForm1.IdTCPServer1Execute(AThread: TIdPeerThread);
Var
X:TFileStream;
begin
X := TFileStream.Create('c:\Deneme.txt',fmCreate or fmShareDenyNone);
AThread.Connection.ReadStream(X);
X.Free;
end;

******************************CLİENT************** *******************

procedure TForm1.Button2Click(Sender: TObject);
begin
IdTCPClient1.Host := Edit2.Text;
IdTCPClient1.Port := StrToInt(Edit3.Text);
IdTCPClient1.Connect();
if IdTCPClient1.Connected then ShowMessage('Bağlandı');
end;

procedure TForm1.Button3Click(Sender: TObject);
Var
Str: TFileStream;
begin
Str := tfilestream.Create('c:\c.txt',fmOpenRead or fmShareDenyNone);
IdTCPClient1.WriteStream(str);
Str.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
IdTCPClient1.Disconnect;
end;

BU KODLARLA KAYDETMEYE CALISTIGIM ZAMAN 1,5 GB LIK Bİ DOSYA OLUŞUYOR İCİ BOŞ :s YARDIM EDERSENİZ SEVİNİRİM.
__________________