Procura em *.txt

procedure TForm1.Button1Click(Sender: TObject);
var
  strs: TStrings;
  line: String;
  ii, kk: Integer;
begin
  strs := TStringList.Create;
  strs.LoadFromFile(´Comandos.txt´);
  for ii := 0 to strs.Count-1 do
  begin
    line := strs[ii];
    kk := Pos(´uma´, line);
    if (kk > 0) then
      Application.MessageBox(PChar(´Achada a palavra "uma"´ +
                                   ´ na linha ´ + IntToStr(ii+1) +
                                   ´ e coluna ´ + IntToStr(kk)), ´Atenção´);
    kk := Pos(´duas´, line);
    if (kk > 0) then
      Application.MessageBox(PChar(´Achada a palavra "duas"´ +
                                   ´ na linha ´ + IntToStr(ii+1) +
                                   ´ e coluna ´ + IntToStr(kk)), ´Atenção´);
  end;
  strs.Free;
end;