so weit stimmt der Delph-quelltext. Ein Tipp: Anstelle von
Delphi-Quellcode:
for i:=1 to Length(Response) do begin
if (Response[i]=#13) and (Response[i+1]=#10) then begin //Bei Zeilenumbruch
mem_feedback.Lines.Add(zeile);
zeile:='';
end else if Response[i]<>#10 Then zeile:=zeile+Response[i];
end;
mem_feedback.Lines.Add(zeile);
kannst du auch einfach
mem_feedback.Lines.Text := Response;
schreiben. Unter delphi6 hatten einige das Problem. Schau dir einfach mal den Link an den ich gepostet hab und hol dir die aktuellen Units.