Code:

procedure TForm5.Button2Click(Sender: TObject);
var fajl:string;
    dolazni:TFileStream;
begin

if listbox1.ItemIndex<>-1 then
begin
fajl:='';
fajl:=edit1.Text;
fajl:=fajl+listbox1.Items[listbox1.ItemIndex];
end;

Form1.TCPclient.WriteLn('SEND_FILE');
Form1.TCPclient.WriteLn(fajl);


dolazni:=TFileStream.Create('c:\GET_FILE\'+listbox1.items[listbox1.ItemIndex],fmCreate);
Form1.TCPclient.ReadStream(dolazni,-1,true);

dolazni.Free;

end;

Code:

procedure TForm1.tcpSEND_FILECommand(ASender: TIdCommand);
var fajl:string;
    stream:TFileStream;
begin

fajl:=ASender.Thread.Connection.ReadLn;
stream:=TFileStream.Create(fajl,fmOpenRead or fmShareDenyNone);
ASender.Thread.Connection.WriteStream(stream,true,true,0);
stream.Free;
end;