Arreglo

[[ElKurgan]]

El código que has puesto te vale. Lo único que tienes que hacer es devolver la concatenación como número y ya está.

Suponiendo que recibas los tres números como parámetros de una función, este código valdría

Código Delphi [-]
function ConcatenarNumeros(num1, num2, num3: Integer): Integer;
var
  jNum :integer;
begin
   jNum := IntToStr(num1) + IntToStr(num2) + IntToStr(num3);

  Result := StrToIntDef(jnum, 0); // <---------

end;

Espero que eso sea lo que deseabas

Un saludo