suchen in einer filelistbox

[happycell]

Hi, ich habe diese Prozedur aus der Library, jedoch ruft sie bei mir folgenden Fehler auf:

"[Error] betrachter.pas(89): Illegal character in input file: '*' ($A0)"



procedure TForm1.Button1Click(Sender: TObject);
var iFound: Integer;
begin
* iFound := FileListBox1.Items.IndexOf(Edit1.Text); ->bezieht sich auf diese Zeile
* if iFound >= 0
* then ShowMessage('Das gesuchte Wort wurde an ' + IntToStr(iFound) + 'ter Stelle gefunden.')
* else ShowMessage('Das gesuchte Wort wurde nicht gefunden.');
end;

Was habe ich falsch gemacht??

Hat sich schon erledigt, habe das Problem gefunden.