[NumLock]

Сообщение от win32nod32

Вместо точек пробелы должны быть.

Код:

 function RightPad(S: string; Ch: Char; Len: Integer): string;
 var
   RestLen: Integer;
 begin
   Result  := S;
   RestLen := Len - Length(s);
   if RestLen < 1 then Exit;
   Result := StringOfChar(Ch, RestLen) + S;
 end;

RightPad('Edit2.Text', ' ', 30);
шрифт Courier установи.