Ayuda con SQL

[pepesoft]

Hola, tengo un caso de una consulta que es la siguiente

Código Delphi [-]
var
  tValor, tNumero: Integer;
  tText :string;
begin
  tTUni := TUniQuery.Create(nil);
  tTUni.Connection := DBConexion.BaseDatos;

  tText  := 'TPT';
  tValor := 1;

  with Uniquery do
  begin

    Close;
    SQL.Clear;
    SQL.Add('SELECT MAX(SUBSTR(codigo,4))::integer + 1 AS numero FROM clientes');
    SQL.Add(' WHERE LEFT(codigo,3) = :texto ');
    ParamByName('texto').AsString := tText;
    Open;
    tNumero  := FieldByName('numero').AsInteger;
    if tNumero > 0 then
      Edit1.Text := tText + FormatFloat( '#',(tNumero) )
    else
      Edit1.Text := tText + FormatFloat( '#',tValor );
   end;

end;

Lo que sucede es que quiero generar un código alfanumerico en postgresql, que contenga 3 letras y numeros, algo asi
TPT1, TPT2, ..., .., TPT100, .., TPT2300, así sucesivamente. con este código solo genera hasta el numero diez y luego todos son 10, algo esta fallando y no me he dado cuenta.