[] werden weggelassen.

[sniper_w]

Der Fehler ist sehr wohl da. So dürfte es gehen (zumindest bei mir):

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var mys:string;
    i, d:Integer;
begin
  for i:=0 to Memo1.Lines.Count-1 do
  begin
    mys := Memo1.Lines.Strings[i];
    mys := LowerCase(mys);
    d := Pos('[pk]',mys);
    if d<>0 then
    begin
      Caption := 'Line:' + IntToStr(i+1) +'  Position:'+IntToStr( d );
      Break;
    end;
  end;
end;

[edit=alcaeus]quote- durch delphi-Tags ersetzt. In Zukunft bitte die richtigen Tags verwenden. Mfg, alcaeus[/edit]