[Andrey53]

Примерно так, пишу здесь могут быть ошибки

Код:

var
 F:TextFile;
 s:string;
 i:integer;
begin
 s:='';
 i:=0;
 AssignFile(F,'namefile.txt');
 Reset(F);
 while not (EOF(F)) do
  begin
   s:='';
   Readln(F,s);
   inc(i);
   if s[1]='т' then
    begin
     Caption:='Номер первой строки с буквой т - '+InttoStr(i);
     exit;
    end;
  end;
 CloseFile(F);
end;