判断edit 是否为空 来决定 是否往数据库存数据

求助判断edit 是否为空 来决定 是否往数据库存数据
procedure TForm2.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  for I := 0 to ComponentCount - 1 do
  if (Components[I] is TEdit) and (TEdit(Components[I]).Text='')then
  showMessage(Components[I].Name+'不能为空');
  begin
  if Fop = otAdd then
  begin
  addqury(FQuery);
  end;
  if Fop = otEdit then
  begin
  fixqury(FQuery);
  end;
  modalresult:=mrok;
  end;
end;
代码如上
现在实现功能是 判断 edit 中有无数据 有则存入数据库
无则弹出提醒对话框 但不执行添加 修改程序 求助怎么修改

[解决办法]
procedure TForm2.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ComponentCount - 1 do
if (Components[I] is TEdit) and (Trim(TEdit(Components[I]).Text)='')then
begin
showMessage(Components[I].Name+'不能为空');
Exit;
end;

if Fop = otAdd then
addqury(FQuery)
else if Fop = otEdit then
fixqury(FQuery);

modalresult:=mrok;
end;