Id последней записи MYSQL

function AddToolInZayavka(IdZayavka: Integer): Integer;
begin
  if IdZayavka = 0 then begin
    with DM1.FDC1 do begin
      CommandText.Clear;
      CommandText.Add('INSERT INTO zayavka_spisok (Status)');
      CommandText.Add('VALUES (:pStatus)');
      ParamByName('pStatus').AsInteger := 1;
      Execute;
    end;
 
    with DM1.FDQ1 do begin
      Close;
      SQL.Clear;
      SQL.Add('SELECT LAST_INSERT_ID() AS LastId');
      Open;
      if RecordCount > 0 then begin
        IdZayavka := FieldByName('LastId').AsInteger;
 
      end;
    end;
 
  end else begin
 
  end;
  Result := IdZayavka;
end;

     with DM1.FDQ1 do begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO zayavka_spisok (Status)');
      SQL.Add('VALUES (:pStatus);');
      ParamByName('pStatus').AsInteger := 1;
      SQL.Add('SELECT LAST_INSERT_ID() AS LastId;');
      Open;
      if RecordCount > 0 then begin
        IdZayavka := FieldByName('LastId').AsInteger;
 
      end;
    end;

  if IdZayavka = 0 then begin
    try
      with DM1.FDQ1 do begin
        Close;
        SQL.Clear;
        SQL.Add('INSERT INTO zayavka_spisok (Status)');
        SQL.Add('VALUES (:pStatus);');
        ParamByName('pStatus').AsInteger := 1;
        SQL.Add('SELECT LAST_INSERT_ID() AS LastId;');
        Open;
        if RecordCount < 1 then begin
          ShowMessage('{FDD7725B-99A4-4017-9F18-8BDA4F6899D6}');
          Exit;
        end;
 
        IdZayavka := FieldByName('LastId').AsInteger;
      end;
    except
      ShowMessage('{59A085C3-AF87-4601-8FC9-366443BB475C}');
    end;
  end;