Hola
Agrega un ADOQuery adicional al form y llamalo QTemp, asi sabras que lo usas temporalmente.
Coloca este codigo donde necesites:
Código Delphi
[-]
QTemp.SQL.Text := 'Select Max(Codigo) From Suplidor';
QTemp.Open;
EDCodigo.Text := IntToStr(QTemp.Fields[0].AsInteger+1);
QTemp.Close;
Saludos