Даны два слова. Вывести на экран общие буквы в этих словах.

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
  Ch : Char;
  D1, D2, DRes : set of Char;
  Str1, Str2, StrRes : String;
begin
  Str1 := Edit1.Text;
  Str2 := Edit2.Text;
 
  D1 := [];
  for i := 1 to Length(Str1) do begin
    D1 := D1 + [ Str1[i] ];
  end;
 
  D2 := [];
  for i := 1 to Length(Str2) do begin
    D2 := D2 + [ Str2[i] ];
  end;
 
  DRes := D1 * D2;
 
  StrRes := '';
  for Ch := Low(Char) to High(Char) do begin
    if not (Ch in D2) then Continue;
    if StrRes <> '' then StrRes := StrRes + ', ';
    StrRes := StrRes + Ch;
  end;
 
  if DRes <> [] then begin
    ShowMessage(
      'Перечень букв, входящих в оба слова: ' + #10
      + StrRes
    );
  end else begin
    ShowMessage('Нет букв, которые бы присутствовали в обоих словах.');
  end;
end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,StrUtils;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
strMin,strMax,str,str1,str2: String;
I,J,Position: Integer;
begin
  if Length(edit1.Text)<= Length(edit2.Text) then
      begin
    strMin:=edit1.Text;
    strMax:=edit2.Text
      end
        else
      begin
        strMin:=edit2.Text;
        strMax:=edit1.Text
      end;
 
     Position:=1;
    for I:=1 to Length(strMin) do
     begin
       if Pos(strMin[I],strMax)>0 then
            begin
            J:=I;
            str:=str1+strMin[J];
            str1:=str;
            inc(J);
             while J<= Length(strMin)do
                begin
                  str:=str+strMin[J];
                  inc(J);
                  if Pos(str,StrMax)>0 then str1:=str;
                end;
            end;
       if length(str1)>length(str2) then
       str2:=str1 ;
       str:=''; str1:='';
     end;
     label1.Caption:='Совпадение      "'+str2+'"';
end;
 
end.