Вернуть число строк полученных в Label при WordWrap:=true;

[MyLastHit]

Здравствуйте. Вот такой вот вопрос, можно как нибудь вернуть число строк полученных в Label, не считая макс. кол-во символов в одной строке(очень плохая штука...)?
Например если включил WordWrap или с помощью стринговых параметров осуществил переносы?

[Valio]

Символ переноса #13#10. Достаточно пройтись по строке и подсчитать их количество. Это и будет кол-во строк.

[Sibedir]

var
  c, w, h: Integer;
begin
  w := Label1.Width;
  h := 2 - Label1.Font.Height;
  Label1.Caption := Memo1.Text;
  Label1.AutoSize := True;
  Label1.AutoSize := False;
  Label1.Width := w;

  c := Round (Label1.Height / h);
  Edit1.Text := IntToStr(c);
end;