[angvelem]

Добавь какие нужны проверки:

Код:

procedure Button1Click(Sender : TObject);
begin
  if (Edit.Text = 'ok') or (Edit.Text = 'bla-bla') or (Edit.Text = 'he-he') then
    Memo2.Text := Memo1.Text;
end;