как реализовать смещение в richedit'e?подробности внутри

[Скандербег]

Вот так работает без лишних пустых строк и правильно.

procedure TForm1.sButton1Click(Sender: TObject);
var
  num1T,num2T:extended;
  num2,num1,str,cherta,otstyp:string;
  i,temp:integer;
  Res : TStringList;
begin
  num1T:=StrToFloat(Edit1.text); //перевод Едит в числовой тип
  num2T:=StrToFloat(Edit2.text);
  num2:=Edit2.text;              //присваимваем переменным строковое значение Едитов
  num1:=Edit1.text;

  for i:=1 to Max(length(Edit2.text),length(Edit1.text)) do
    cherta:=cherta+'-';

  Res := TStringList.Create;

  for i:=1 to length(num2) do begin
    if num2[i]<>',' then  begin
      str := num2[i];
      temp := strtoint(str);
      Res.Add(floattostr(temp*num1T));
    end;
  end;
  otstyp:='';

  Memo1.Lines.Clear;                  //Вывод начальных данных в мемо и ричедит)
  Memo1.Lines.Add(Edit1.text);
  Memo1.Lines.Add('*');
  Memo1.Lines.Add(Edit2.text);
  Memo1.Lines.Add(cherta);

  for I := Res.Count-1 downto 0 do begin
    Memo1.Lines.Add(Res[i]+otstyp);
    otstyp:=otstyp+' ';        //увелечение отступа
  end;
  Res.Free;
end;

[nuevegramodelamor]

ммм я только дошёл до этого))спасибо всё работает