[jachguate]

Regularmente es tan fácil como ir a la ayuda de delphi. Este ejemplo está alli mismo:

Empezado por Delphi Help

Código Delphi [-]
var S: string;

begin
  S := '   123.5';
  { Convert spaces to zeros }
  while Pos(' ', S) > 0 do
    S[Pos(' ', S)] := '0';
end;

Hasta luego.