Kako pročitati zadnju liniju TEXT filea

Code:

var
   fileData : TStringList;
   saveLine : String;
   lines, i : Integer;
 begin
   fileData := TStringList.Create;        
   fileData.LoadFromFile('c:\blabla.txt');

   
   lines := fileData.Count;

   for i := lines-1 downto (lines div 2) do
   begin
     saveLine := fileData[lines-i-1];
     fileData[lines-i-1] := fileData[i];
     fileData[i] := saveLine;
   end;

   for i := 0 to lines-1 do
     ShowMessage(fileData[i]);
end;

Code:

function GetLastFileLine(FPath : String) : String;
var
  SFile : TextFile;
begin
  AssignFile(SFile, FPath);
  Reset(SFile);
    While Not Eof(SFile) Do
      ReadLn(SFile, result);
  CloseFile(SFile);
end;

Code:

var
   fileData : TStringList;
   lines : Integer;
 
begin
   fileData := TStringList.Create;        
   fileData.LoadFromFile('c:\blabla.txt');

   
   lines := fileData.Count;
   
     ShowMessage(fileData[lines-1]);
end;