[Petolansa]

Gracias dec, voy entendiendo, pero no logro hacer que me funcione, agradeceria una manito mas si noe s mucho pedir, esto es lo que intento...

Código Delphi [-]
procedure TFrmprincipal.Recibo1Click(Sender: TObject);
begin
with tfrmrecibo.Create() do //Aqui me marca el error
    try
      if (showmodal()=mrOK) then
      begin
             query2.Close;
             query2.SQL.Clear;
             query2.SQL.Add('select contrecibo from contrecibo');
             query2.Open;
             numrecibo:=query2.Fields[0].AsInteger;
             query2.Close;
             numrecibo:=numrecibo+1;
             frmrecibo.label4.Caption:=inttostr(numrecibo);
       end;
     finally
         free();
      end;

Me dice 'not enough actual parameters'
no hay suficientes parametros actuales seria,

Saludos!