[Gravitas]

На форму кинь Memo и кнопку. В обработчике клика по кнопке (Button1Click):

Код:

var
 i,z,c:integer;
 x:string;
 begin
 for i:=100 to 999 do begin
 x:=IntToStr(i);
 z:=StrToInt(x[1]);
 for C:=2 to length(x) do
 z:=z*StrToInt(x[c]);
 if z<>0 then begin
 if (StrToInt(x) mod z) = 0 then
 Memo1.Lines.Add(x);
 end;
 end;
end;