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