saber quantas linhas tem um label...

procedure TForm1.Button1Click(Sender: TObject);
Var
  Linhas : Tstrings;
begin
   Label1.Caption := ´Linha1 ´
   + chr(10)
   + ´Linha2´
   + chr(10)
   + ´Linha3´
   + chr(10)
   + ´Linha4´
   + chr(10)
   + ´Linha5´;

  Try
     Linhas := TStringList.Create;
     Linhas.Text := Label1.Caption;
     ShowMessage(´Meu Label Possui ´ + IntToStr(Linhas.Count) + ´ linhas´);
  Finally
     FreeAndNil(Linhas);
  End;
end;