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