Hola
El error dice que no tienes por que no encuentra ningún campo que se llame Numero.
Por otro lado:
Código Delphi
[-]
Query1.SQL.Clear;
Query1.SQL.Add('Select Max(Numero) From OrdenCompra');
Query1.Open;
Numero.Text:= IntToStr(Query1.Fields[0].AsInteger+1);
Para que variables ?.
Saludos