将代码顺序重排即可,如下:
procedure Tinput.BitBtn1Click(Sender: TObject);
begin
   with Adotable1 do
   begin
   open;
   Edit;
   Append;
   if Trim(Edit1.Text)='' then
   begin
    Application.MessageBox('耗材名称为空不能输入，请输入耗材名称.','提示',0+64);
    Edit1.SetFocus;
    end      else begin
    if Trim(Edit2.Text)='' then
   begin
    Application.MessageBox('数量为空不能输入，请输入数量值.','提示',0+64);
    Edit2.SetFocus;
    end      else begin
    if Trim(Edit3.Text)='' then
   begin
    Application.MessageBox('所领工厂为空不能输入，请输入所领工厂.','提示',0+64);
    Edit3.SetFocus;
    end      else begin
    if Trim(Edit4.Text)='' then
   begin
    Application.MessageBox('部门为空不能输入，请输入部门.','提示',0+64);
    Edit4.SetFocus;
    end      else begin
    if Trim(Edit5.Text)='' then
   begin
    Application.MessageBox('领取人为空不能输入，请输入 领取人.','提示',0+64);
    Edit5.SetFocus;
    end      else begin
    if Trim(Edit6.Text)='' then
   begin
    Application.MessageBox('领取时间为空不能输入，请输入领取时间.','提示',0+64);
    Edit6.SetFocus;
    end      else begin
if (Edit1.Text<>'') and (Edit2.Text<>'') and (Edit3.Text<>'') and (Edit4.Text<>'') 
and (Edit5.Text<>'') and (Edit6.Text<>'') then
begin
if Application.MessageBox('确定要添加记录?,'提示',mb_YesNo)=ID_Yes then
begin
   Adotable1.fieldByname('耗材名称').AsString:=Trim(Edit1.Text);
   Adotable1.fieldByname('数量').AsString:=Trim(Edit2.Text);
   Adotable1.fieldByname('所领工厂').AsString:=Trim(Edit3.Text);
   Adotable1.fieldByname('部门').AsString:=Trim(Edit4.Text);
   Adotable1.fieldByname('领取人').AsString:=Trim(Edit5.Text);
   Adotable1.fieldByname('领取时间').AsString:=Trim(Edit6.Text);
 if (Adotable1.modified) then  Adotable1.post; 
 end;
   end;
end;