Definition of memo's properties
memo.onchange:=memo1Change;
procedure TForm1.Memo1Change(Sender: TObject);
begin
panel1.caption:='Content has been changed';
end;
