>>278
元VB屋さんですか?
 それなら一度バリアント変数を中継するといいですよ
procedure TForm1.Memo1Change(Sender: TObject);
var w:Variant;
begin
w:=Length(Memo1.Lines.Text);
Label1.Caption :=w;
end;