[cherepets]

В смысле как-то так?

program abcdef;

procedure right(str :string; x,y :integer);
var  
  i :integer;
begin
  for i:=0 to length(str)-1 do
  begin
drawtext(getChar(str,length(str)-1-i),(x-i*8-8),y);
  end;
end;

begin
right('abcdef',240,20);
repaint;
delay(10000);
end.

Просто до подобного-то я сразу додумался, но это далеко не лучший вариант. Ширина разных символов разная, так что текст будет выглядеть не совсем правильно...