Функция наполнения строки

К примеру, назовем функцию "spcs" и создадим следующий код:

function Spcs(num : byte) : string;
var tmp : string;
begin

fillchar(tmp, num+1, ' '); {инициализация всей строки пробелами}

tmp[0] := chr(num); {устанавливаем длину строки с пробелами}

result := tmp;

end;

Теперь достаточно написать

Edit1.Text := SurName + spcs(10) + FirstName.

[000447]