memo.on:=memo1;

procedure TForm1.Memo1(Sender: TObject);
begin
panel1.caption:='Содержимое было изменено';
end;