Řetězce v Delphi

for i:=0 to Lines.Count-1 do
begin
if form2.edit1.text = Lines[i] then Form2.Zapis;
end;

To asi nepujde.
Na tom řadku neni jen ta IP.
Je to soubor s linuxoveho servru a žadky vypadaj takto

97.11.44.1 vasicek #wifi-plus-64-20480

Že by SubString od začátku řetězce do první mezery

Presne tak.

for i:=0 to Lines.Count-1 do
begin
  if form2.edit1.text = Copy(Lines[i], 1, Pos(' ', Lines[i])-1) then 
    Form2.Zapis;
end;

Tak ani toto mi nefungovalo.
Když to otevřu v PsPadu tak to vypada tak jak jsem psal.
Když to však krokují v delphi tak to vypada takto.
Tam neni mezera ale #9 bude asi tabulator.
'91.32.11.23'#9'karel'#9'#wifi-normal-64-12000'
Poradite jak na to.

if form2.edit1.text = Copy(Lines[i], 1, Pos(#9, Lines[i])-1) then 
    Form2.Zapis;

Koukni na tohle;

procedure TForm1.Button1Click(Sender: TObject);
Var I,P:Integer;
    S:String;
    A:Array of String;
begin
 Memo1.Lines.LoadFromFile('ip.txt');
 S:=Memo1.Lines.Text;
 P:=0;
 SetLength(A,P+1);
 for I:=1 to Length(S) do
  begin
//   if Ord(S[I])=13 then
   if S[I]=#13 then
    begin
      Inc(P);
      SetLength(A,P+1);
      If Copy(A[P-1],0,Pos(' ',A[P-1])-1)=Edit1.Text then
       begin
        Label1.Caption:=A[P-1];
        break;
       end;
    end
   else
//    if Pos(Chr(10),S[I])=0 then A[P]:=A[P]+S[I];
    if Pos(#10,S[I])=0 then A[P]:=A[P]+S[I];
  end;
end;

Soubor 'ip.txt';

97.11.44.1 vasicek #wifi1-plus-64-20480
97.11.44.1 vasicek #wifi2-plus-64-20480
97.11.44.1 vasicek #wifi3-plus-64-20480
97.11.44.1 vasicek #wifi4-plus-64-20480
97.11.44.1 vasicek #wifi5-plus-64-20480
97.11.44.1 vasicek #wifi6-plus-64-20480
97.11.44.1 vasicek #wifi7-plus-64-20480
97.11.44.2 vasicek #wifi8-plus-64-20480
97.11.44.1 vasicek #wifi9-plus-64-20480
97.11.44.1 vasicek #wifi10-plus-64-20480

V 'editu1' mas '97.11.44.2';

Tam neni mezera ale #9 bude asi tabulator. Poradite jak na to.

To si opravdu neděláš srandu? Je opravdu tak velký problém si přečíst 2 řádky kódu a nahradit ve funkci mezerník za znak tabulátoru?
Nezlob se, ale u programován se musí aspoň maličko přemýšlet a ne jen lepit kousky kódu, které někde najdeš.