procedure TForm1.Button1Click(Sender: TObject);
var pozice : integer;
begin
pozice := ScanFile('c:\soubor.txt', Form1.Edit3.Text, true);
if pozice<>-1 then ShowMessage('Pozice: '+IntToStr(pozice))
else ShowMessage('Nenalezeno');
end;