memo.onchange:=memo1Change;

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