[Lotles]

Спасибо lmikle
Вот что получилось, прога раскладывает числа на составляющие

Код:

var
  Form1: TForm1;
  chislo,i:integer;
  rez,rez1:string;
  i1:integer;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
try
chislo:=StrToInt(Edit1.Text);
if Chislo=1 then
begin
ShowMessage(IntToStr(chislo)+' раняется :'+#13#10'1*1');
exit;
end;

rez:=IntToStr(chislo)+' раняется :'+#13#10;
i:=2;
While i<99999 do
begin
if chislo mod i=0 then
begin
rez:=rez+IntToStr(i)+'*';
rez1:='';
chislo:=chislo div i;
i:=1;
end;//для if
inc(i);
end;//для While
delete(rez,Length(rez),1);
ShowMessage(rez+#13#10);
except;
ShowMessage('Чо за дерьмо ты ввел ?');
end;
end;

end.