procedure TfrmMain.Button10Click(Sender: TObject);
var MSGText : String;
var BMPStream : TfileStream;
begin
    if ListView1.SelCount = 0 then begin
       MessageBox(0, 'Bevor sie eine Bildnachricht abschicken müssen sie ein User auswählen!', 'Bildnachricht schicken!', MB_OK or MB_ICONERROR);
       exit;
    end else begin
         MSGText := Memo2.Lines.DelimitedText;
         MSGClient.Host := userIP;
         MSGClient.Port := 9003;
         MSGClient.Connect;
         MSGClient.WriteLn('__'+uname+'__');
         MSGClient.WriteLn('++'+MSGText+'++');
         if MSGClient.Connected then begin
         MSGClient.Disconnect;
         MSGClient.Host := userIP;
         MSGClient.Port := 9003;
         MSGClient.Connect;
         if FileExists(ExtractFilePath(Application.ExeName)+ 'archiv\MessagePic.jpg') then begin
         BMPStream := TfileStream.Create(ExtractFilePath(Application.ExeName)+ 'archiv\MessagePic.jpg',fmOpenRead + fmShareDenyNone); //Das Bild wird in den FileStream eingelesen!
         MSGClient.OpenWriteBuffer;
         MSGClient.WriteStream(BMPStream); //Bild wird geschickt!
         MSGClient.CloseWriteBuffer;
         MSGClient.Disconnect;
         end;
       end;
    end;
end;

procedure TfrmMain.MSGServerExecute(AThread: TIdPeerThread);
var ftmpStream : TFileStream;
var TCopy : String;
var s : String;
var saveText : TextFile;
var savename : String;
var MSGJpeg : TJpegImage;

begin
       MSGcount := MSGcount+1;
       s := AThread.Connection.ReadLn;
       TCopy := copy(s,1,2);
    if Tcopy = '__' then begin
       MSGname := s+IntToStr(MSGcount);
       end else begin
    if TCopy = '++' then begin
       savename := ExtractFilePath(Application.ExeName)+'message\'+MSGname+'.txt';
       AssignFile(saveText, savename);
       {$i-} Rewrite(saveText); {$i+} 
       if IOResult <> 0 then begin
       MessageBox(0, 'Fehler beim speichern der Nachricht!', 'Bildnachricht schicken!', MB_OK or MB_ICONERROR);
       exit;
       end;
       Write(saveText, s);
       CloseFile(saveText);
       end else begin
           try
           ftmpStream := TFileStream.Create(ExtractFilePath(Application.ExeName)+'message\'+MSGname+'.jpg',fmCreate);
           AThread.Connection.ReadStream(ftmpStream,-1, true); //Der FileStream wird als Jpeg gespeichert. Daten sind da aber das Bild lässt sich nicht öffnen???
           finally
           MSGJpeg := TJpegImage.Create;
           MSGJpeg.LoadFromStream(ftmpStream); //Hier hab ich versucht die Daten direkt vom Stream in das Jpeg zu laden klappt aber nicht? Es werden 0 Bytes übergeben???
           FreeAndNil(ftmpStream);
           MSGJpeg.SaveToFile(ExtractFilePath(Application.ExeName) + 'message\'+MSGname+'.jpg');
           end;
           end;
       end;
end;