[m1sclick]

Код:

procedure TForm1.Memo1Change(Sender: TObject);
begin
  ShowMessage('Error!');
end;

Bargest: не забываем про теги оформления кода, читаем правила форума!