Передача файлов по Tcp/ip в локальной сети

Проблема такая: клиент запрашивает файл у сервера (paradox таблица "_temp.db"), сервер его посылает, но принимаеться он только единожды, при первом запуске приложения. Файл удаляеться на стороне клиента, но нового файла не приходит.

Используються Indy-компоненты: TIdTCPServer и TIdTCPClient.

обрывки кода:

на стороне сервера:

procedure TForm1.ServerExecute(AThread: TIdPeerThread);
var f: TFileStream;
s: string;
begin
s := AThread.Connection.ReadLn;
if s = 'GIVEME' then begin
f := TFileStream.Create'_temp.db',
fmOpenRead);
with AThread.Connection do begin
OpenWriteBuffer;
WriteStream(f);
CloseWriteBuffer;
Disconnect;
end;
end;
end;

на стороне клиента:

procedure TForm1.Button1Click(Sender: TObject);
var f: TFileStream;
begin
if TempTable.Active then TempTable.Close;
if TempTable.Exists then TempTable.DeleteTable;
// DeleteFile('_temp.db');
with Client do begin
Connect;
WriteLn('GIVEME');
f := TFileStream.Create('_temp.db', fmCreate);
f.Seek(0, soFromBeginning);
ReadStream(f, -1, true);
end;
f.Free;
// TempTable.TableName := '_temp.db';
TempTable.Open;
end;

Вот собстна ап ? обьясните ламеру ...