вывод 2ух чисел в мемо с выравниванием меньшего к правому краю большего

[nuevegramodelamor]

num1T:=StrToInt(sEditFirst.text);
num2T:=StrToInt(sEditSecond.text);
num2:=sEditSecond.text;
num1:=sEditFirst.text;
size:= abs(length(num1)-length(num2));
if size<>0 then
        begin
for I := 0 to size-1 do
  sizeT:=sizeT+' ';
        end;

if (num1T>num2T) then
 begin
sMemo1.Lines.Clear;
sMemo1.Lines.Add(sEditFirst.text);
sMemo1.Lines.Add('*');
sMemo1.Lines.Add(sizeT+sEditSecond.text);
 end
 else
 begin
sMemo1.Lines.Clear;
sMemo1.Lines.Add(sEditSecond.text);
sMemo1.Lines.Add('*');
sMemo1.Lines.Add(sizeT+sEditFirst.text);
 end;

собственно вот код....Находим по модулю разность чисел и узнаём на сколько нам смещаться вправо,ставим пробелы...и в зависимости от того какое число больше-меньше ставим на разные строчки+смещение...но что-то не получается выравнивать по правому краю меньшее число((

[evg_m]

чтобы использовать выравнивание вправо с помощью пробелов необходимо применять моноширинные шрифты (у которых ОДИНАКОВАЯ ширина ВСЕХ без исключения символов).
пример таких шрифтов Courier Courier New

[nuevegramodelamor]

О,спасибо)работает...И ещё,а как сделать выравнивание в мемо по правому краю???