Удалить из первого слова буквы, которые встречаются во втором слове

var
w1, w2:String;
i, j:Integer;
begin
w1 :=Edit1.Text; //вводим 1-е слово
w2 :=Edit2.Text; //вводим 2-е слово
for i :=Length(w1) downto 1 do
for j :=1 to Length(w2) do
if w1[i]=w2[j] then Delete(w1, i, 1);
ShowMessageFmt('Результат : %s', [w1]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s1,s2:string;
begin
s1:=Edit1.Text;
s2:=Edit2.Text;
for i:=length(s1) downto 1 do
if pos(s1[i],s2)>0 then delete(s1,i,1);
Edit1.Text:=s1;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
edit1, edit2:string;
begin
  edit1:='hellow';
  edit2:='elo';
  for i:=length(edit1) downto 0 do
    if pos(edit1[i],edit2)>0 then edit1:=StringReplace(edit1,edit1[i],'',[rfReplaceAll]);
  edit1:=trim(edit1);
  showmessage('|'+edit1+'|');
end;

for i:=length(s1) downto 1 do
if pos(s1[i],s2)>0 then
 begin
  delete(s1,i,1);
  Memo1.Lines.Add(s1[i]+'- '+inttostr(i))
 end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    s1,s2:string;
begin
s1:=Edit1.Text;
s2:=Edit2.Text;
for i:=1 to length(s1) do
if pos(s1[i],s2)>0 then
Memo1.Lines.Add(s1[i]+'- '+inttostr(i));
for i:=length(s1)downto 1 do
if pos(s1[i],s2)>0 then  delete(s1,i,1);
Edit1.Text:=s1;
end;