La funcion last_insert_id de my sql devuelve siempre cero

[frandigo77]

Si la clave primaria es AutoInc..la seect la ejcuto desde el mismo entorno de MySQL

Código SQL [-]
Insert into Tabla values(x,x,x);
select last_insert_id();

Esta misma operacion la realizo desde un TDataSetProvider en Delphi y tambien me devuelve el mismo resultado..0.

Código Delphi [-]
procedure TsvmRPK03.prqrPersonaAfterUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind);
begin
  inherited;
  if UpdateKind = ukInsert then
  begin
    //OJO Tanto para Maestro como para Detalle
    SourceDS.Tag:= Self.UltimaIdentidad; //REVISAR last_change_id
    DeltaDS.Fields[0].NewValue:= SourceDS.Tag;
  end;
end;

Código Delphi [-]
function TsvmRPK03.UltimaIdentidad: LongInt;
var
  V: Variant;
begin
  qrLastInSertId.Close;
  qrLastInsertId.Open;
  Result:= qrLastInsertIdId.Value;
end;