procedure TForm1.ClientSocket1Read(Sender: TObject;
  Socket: TCustomWinSocket);
var s, s2: string;
begin
s := Socket.ReceiveText;
{beskeden er ikek hele beskeden, skal tilføjes til sidst sendte socket}
if not(s[1] = #36) and if not(s[1] = #60) then
        begin
                s2 := memo1.lines[memo1.lines.count-1];
                s2 := s2 + s;
                memo1.lines[memo1.lines.count-1] := s2;
        end else
        begin
                memo1.lines.add(s);
        end
end;