[denISRU]

на второй вопрос выродил вот такое - проверьте пожалусто на безграмотность, но все работает

Код:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  a,b,c,d,e:real ;
 begin
 a:=StrToFloat(form1.Edit1.Text);// из текста делаем число
 b:= Trunc (a/100); //получаем первую цифру
 c:= Trunc ((a-b*100)/10); // вторую...
 d:= (a-b*100)-c*10; // третью:)
 e:=b+c+d; //вычислили сумму
 Edit2.Text := FloatTostr(b) ; //следующие 3 промежуточные результаты
 edit3.text := FloatTostr(c) ; // для самопроверки
 edit4.Text := FloatTostr(d) ;
 edit5.Text := FloatTostr(e) ; // выводим результат
end;

end.