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.