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
Статья Функция наполнения строки раздела Синтаксис Текст и Строки может быть полезна для разработчиков на delphi & pascal.
