Vergleich ???

[SaFu]

Hi

Kann mir mal einer veraten wie ich diesen vergleich herstelle steh gerade auf dem schlauch

Delphi-Quellcode:

procedure TForm1.Button4Click(Sender: TObject);
var
  s,za: String;
  zz,i: Integer;
begin
  Memo1.Lines.Clear;
   getConnectionList(Memo1.Lines);
  for i:=0 to Memo1.Lines.Count-1 do
  begin
    zz := Pos('  TCP    127.0.0.1:1092         127.0.0.1:18350        HERGESTELLT', Memo1.Lines[i]);
    if zz > 0 then
    begin
      s:= Copy(Memo1.Lines[i],0,66);

      Memo2.Lines.add(s);
      Label3.Caption:= s;
      za:= IntToStr(zz);
      Exit;
    end;
  if  s = zz then
    begin
     label4.Caption:= 'Hallo';
    end;
  end;
end;

Danke schonmal Sascha