Выравнивание по ширине, RichEdit

Delphi 7.

Пытаюсь сделать выравнивание путем добавления пробелов к уже существующим. Вот что у меня пока получилось. Подскажите пожалуйста как можно сюда прикрутить замену одного символа на другой?
Пытался через StringReplace, Insert, Delete но ничего путного из этого не вышло
Помогите плз, курсач скоро сдавать.

begin
n := RichEdit1.Lines.Count;
for i:= 1 to n do begin
strk := RichEdit1.Lines;

i:=i-1;
end;

end;