Delphi - ayuda

Hola estoy haciendo una aplicacion cliente - servidor en delphi con serversocket y clientsocket. Pero no se enviar archivos y necesito por favor que alguien me ayude. Muchas gracias deantemano. saludos.

Por ejemplo en el ServerSocket al recibir una comunicacion del cliente se dispara el evento siguiente:
procedure TForm1.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
Puedes valorar la peticion del cliente y si esta es enviar un fichero Fichero.bmp o de texto pues puedes escribir lo siguiente
strCommand es la cadena que te manta el cliente

strCommand := Socket.ReceiveText;

else if Pos ('TEXT!', strCommand) = 1 then
begin
if FileExists (strFile) then
begin
strFeedback := 'TEXT!';
Socket.SendText (strFeedback);
Socket.SendStream (TFileStream.Create (
strFile, fmOpenRead or fmShareDenyWrite));
end
else
begin
strFeedback := 'ERROR' + strFile + ' not found';
Socket.SendText (strFeedback);
end;
end

// enviar un fichero bmp
else if Pos ('BITM!', strCommand) = 1 then
begin
if FileExists (strFile) then
begin
strFeedback := 'BITM!';
Socket.SendText (strFeedback);
Socket.SendStream (TFileStream.Create (
strFile, fmOpenRead or fmShareDenyWrite));
end

Suerte

Y en el cliente al recibir los ficheros los puedes leer asi
si el servidor te manta un fiochero de texto :
type
TCliStatus = (csIdle, csList, csBitmap, csText, csError);
private
CliStatus: TCliStatus;
Buffer: array [0..9999] of Char;

procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var
strIn: string;
Stream: TMemoryStream;
nReceived: Integer;
begin
case CliStatus of

csText:
begin
with TFormText.Create (Application) do
begin
Memo1.Text := Socket.ReceiveText;
Show;
end;
cliStatus := csIdle;
end;
// leer el bitmap
csBitmap:
with TFormBmp.Create (Application) do
begin
Stream := TMemoryStream.Create;
Screen.Cursor := crHourglass;
try
while True do
begin
nReceived := Socket.ReceiveBuf (Buffer, sizeof (Buffer));
if nReceived <= 0 then
Break
else
Stream.Write (Buffer, nReceived);
Sleep (200); //dale tiempo a que trabaje
end;
// reset y cargar el fichero temporal
Stream.Position := 0;
Image1.Picture.Bitmap.LoadFromStream (Stream);
finally
Stream.Free;
Screen.Cursor := crDefault;
end;

Suerte

muchas gracias BigLuis , lo necesitaba mucho!!!.
saludos.