Form1 Ultimo numero

[juanmaster]

no me sirve quiero que se ejecute ayumaticament el siguiente codigo cuando yo habra el formularo
procedure TFMAGREGAR.FormCreate(Sender: TObject);
var

ultimo:integer;
begin

FMagregar.ADOQuery1.SQL.Add ('select max(IDARTICULO) +1 ultimo from articulos');

FMAGREGAR.DBEdit1.Text:= inttostr(ultimo);

end;

end.