Проверка edit'ов на пустоту

if length(edit1.text)=0 then label1.caption:='Поле не заполнено' esle Label1.caption:='сохранено'

if length(edit1.text)=0 and length(edit2.text)=0 and length(edit3.text)=0 ....then

if (length(edit1.text)=0) and (length(edit2.text)=0) and (length(edit3.text)=0) then
  ...

if (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') then
  ...

procedure TForm3.Button1Click(Sender: TObject);
begin
if (Edit1.Text <> '') and (Edit2.Text <> '') and (Edit3.Text <> '') and (Edit4.Text <> '') and (Edit5.Text <> '') and (Edit6.Text <> '') and (Edit7.Text <> '') and (Edit8.Text <> '') and (Edit9.Text <> '') then
 begin
 //всякие операции...
Label9.Caption:='Запись сохранена';
end
else
begin
  Label9.Caption:='Ошибка! Не все поля заполнены.'
  end;
 
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
flag:boolean;
begin
flag:=true;
  for i:=0 to form1.ComponentCount-1 do
  begin
    if (form1.Components[i].ClassNameIs('TEdit') and (pos('sql',form1.Components[i].Name)=1)) then
    begin
      if Length(tedit(form1.Components[i]).Text)=0 then
      begin
      flag:=false;
      //ShowMessage(tedit(form1.Components[i]).Text);
      end;
    end;
  end;
  if flag=false then ShowMessage('Где то пусто')
  else ShowMessage('Все нормально');
end;

(form1.Components[i] is TEdit)

if (DBEdit1.Text = '') and (DBmemo1.Text = '') then
        begin
         ShowMessage('Введите данные');
          Exit;
          end;

if (Trim(DBEdit1.Text) = '') and (Trim(DBmemo1.Text) = '') then

if (DBEdit1.Text = '') or (DBmemo1.Text = '')

if Table1.FieldValues['...'] <> null then
begin
...
end;