[NumLock]

правильней условие составить нужное:

Код:

var
  whr: String;

  procedure AddParam(fld: String; val: String; e: TEdit);
  begin
    if e.Text='' then Exit;
    if whr='' then whr:=fld+' = :'+val else whr:=whr+' and '+fld+' = :'+val;
  end;

begin
  whr:='';
  AddParam('f1', 'p1', Edit1);
  AddParam('f2', 'p2', Edit2);
  AddParam('f3', 'p3', Edit3);
  AddParam('f4', 'p4', Edit4);
  Edit5.Text:=whr;
end;

http://zalil.ru/34425633