Strings vergleichen

[woody]

moin,

habe folgendes problem:

ich erhalte eine antwort über die schnittstelle, die inhaltlich wie folgt aussieht:

Delphi-Quellcode:

login
Username: 
Username:

jedoch is diese nicht mit enter formatiert, sondern steht in einer zeile mit sonderzeichen(vierecke) verknüpft.
"login..Username:..Username:" (.=viereck)


nun möchte ich dieses ausdruck überprüfen:

Delphi-Quellcode:

  Msg := Trim(Msg);
          if  Copy(Msg,Length(Msg),10)  = ('login'+#$0d#$0a+'Username:'+#$0d#$0a+'Username:') then
            begin
              messagedlg('is angekommen', mtInformation, [mbOk], 0);
              //TrailState := tsUsername;
              exit;
            end
          else
            begin
            //TrailState := tsErrATOK;
            messagedlg('is nicht angekommen', mtInformation, [mbOk], 0);
            done := TRUE;
            end;
          end;

dies funzt jedoch nicht - kann mir da einer helfen?