Hola
Bueno para que te sirva solo como un ejemplo mas.
Código Delphi
[-]
QTemp.SQL.Text := 'Select Max(CodOrden) From OrdenProd';
QTemp.Open;
Edit2.Text := IntToStr(QTemp.Fields[0].AsInteger+1);
Busca el máximo numero y le suma uno, en este caso lo presento en un edit.
Saludos