Delphi - Com contar las lineas de un txt?

Quiero saber cómo puedo hacer para contar las lineas que tiene un txt que yo coja desde Delhpi, exceptuando las lineas en blanco. Estoy trabajando en Delphi 7.

Por ejemplo (usando un TStringList):

procedure TForm1.Button1Click(Sender: TObject);
var
Texto: TstringList;
i,j: integer;
begin
Texto:=TstringList.Create;
if OpenDialog1.Execute then begin
Texto.LoadFromFile(OpenDialog1.Filename);
{Lineas contando las vacías}
Label1.Caption:=IntToStr(Texto.Count);
{lineas sin contar las vacias}
j:=0;
for i:=0 to Texto.Count-1 do
if Texto[i]<>'' then
inc (j);
Label2.Caption:=IntToStr(j);
end;
Texto.Free;
end;

Suerte.

Servirá también para leer desde un fichero (.pas)????

Sirve para cualquier archivo de texto plano.

Saludos.