Hacer un Bucle en Delphi

[olbeup]

procedure Todespacho.BitBtn1Click(Sender: TObject);
var
AccExclusivo:Boolean;
proximonumero:Integer;
numero:Integer;
tord:Real;
tpart:Real;
begin

Data.sqcaval.Close;
Data.sqcaval.SQL.Clear;
Data.sqcaval.SQL.Add('SELECT idorden ');
Data.sqcaval.SQL.Add('from cartaavaleulalia');
Data.sqcaval.SQL.Add('ORDER BY idorden ASC');
Data.sqcaval.Open;
Data.sqcaval.Last;
proximonumero:= Data.sqcaval.FieldByname('idorden').Value + 1;
numero:=0;

Que tal éste,

Código Delphi [-]
procedure Todespacho.BitBtn1Click(Sender: TObject);
var
  AccExclusivo: Boolean;
  proximonumero: Integer;
  numero: Integer;
  tord: Real;
  tpart: Real;
begin
  with Data.sqcaval do
  begin
    Close;
    SQL.Clear;
      SQL.Add('SELECT');
      SQL.Add('   MAX(IDORDEN)');
      SQL.Add(' FROM cartaavaleulalia');
    Open;
    proximonumero := FieldByName('IDORDEN').AsInteger +1;
    numero := 0;
  end;
end;

Espero que te sirva.

Un saludo.