procedure TForm1.Button1Click(Sender: TObject);begin ShowMessage(IntToStr(Memo1.Lines.Count)); ShowMessage(IntToStr(Length(Memo1.Text)));end;