Binær transfer over Client/ServerSocket

procedure TForm1.Button1Click(Sender: TObject);
const
max = 500;
var
  f: file of Byte;
  size: Longint;
  S: string;
  y: Integer;
begin

  begin
    AssignFile(f, \'D:\\billede\\danemark.bmp\');
    Reset(f);
    try
      size := FileSize(f);
      S := \'File size in bytes: \' + IntToStr(size);

    finally
      CloseFile(f);
      if size > max then
      showmessage(\'Filen er for stor\'+#13+#10 + \'Du kan højest sende \'+ inttostr(max)+\' kb\'+ #13+#10 +\'Du prøver at sende \'+ inttostr(size)+\' kb\' );
    end;
  end;
end;

Takker...