[Black Raider]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  label1.Caption:='';
  for i:=1 to length(Edit1.Text) do
  if pos(edit1.Text[i],edit2.Text)<1 then label1.Caption:=label1.Caption+edit1.Text[i];
end;

Admin: Не забываем про теги, иначе последуют санкции!