[acertij022]

Existe una forma mas sencilla:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
F:textFile;
Str1,Str2:String;
Linea: integer;
begin
assignfile(F,'Prueba.txt');
Reset(F);
Linea:=0;
while not eof(F)do
  begin
  ReadLn(F,Str1);
  inc(Linea);
  Str2 := uppercase(Str1);
  if Str1 = Str2 then showmessage('La linea Nº'+IntToStr(Linea)+' esta escrita todo en mayuscula');
  end;
end;

Espero que te sea de utilidad.