Добавление лидирующих символов

Если необходимо в начало строки вставить определенный символ, например, преобразовать «1010» в «0001010», воспользуйтесь следующей функцией:

function PadL(s_InStr: string; i_Wide: integer; c_Chr: char): string;
begin
  while Length(s_InStr) < i_Wide do s_InStr := c_Chr + s_InStr;
  Result := s_InStr;
end;