[ecfisa]

Hola.

Supongo que podrías hacer:

Código Delphi [-]
var
  jNum :integer;
begin
  jNum := 22 * 10000 + 55 * 100 + 10;
  Result := jNum;
end;

Saludos