Probleme de requete UPDATE pour modifier de champs dans ma dbgrid

Salut merciii à l'avance pour votre aide ;)

Voila mon code mais la requete ne fais rien , elle change rien dans ma DBgrid

procedure TGes_Format.BitBtn5Click(Sender: TObject);
begin
 begin

   if  (edit1.Text = '')then
       begin
         messagedlg('Veuillez sélectionner le champs à modifier',mtWarning,[mbok],0);
       end
   else
       begin
       with DataModule2.IBQuery_Format do begin
         SQL.Clear;
         SQL.Add('UPDATE FORMAT set TYPE_FORMAT='''+edit1.Text+'''');
         SQL.Add('WHERE TYPE_FORMAT ='''+edit1.text+'''');
         ExecSQL;
         BitBtn8.Click;
         BitBtn4.Enabled:=true;
         BitBtn6.Enabled:=true;
         edit1.Text := ''
         end;
         end;

end;
end;

j'ai essayé autrement mais ca fonctionne pas non plus :((((.

procedure TGes_Format.BitBtn5Click(Sender: TObject);
begin
 begin

   if  (edit1.Text = '')then
       begin
         messagedlg('Veuillez sélectionner le champs à modifier',mtWarning,[mbok],0);
       end
   else
       begin
         with DataModule2.IBQuery_Format do
           begin
             SQL.Clear;
             SQL.Add('Update FORMAT');
             DataModule2.IBQuery_Format.ParamByName('TYPE_FORMAT').AsString:=edit1.text;
             ExecSQL;
             BitBtn4.Enabled:=true;
             BitBtn6.Enabled:=true;
             edit1.Text := ''
           end;
       end;

end;
end;

Personne pas la réponse?

Voici la réponse :

Var
OldType:string;
procedure TGes_Format.Modifier_FormatClick(Sender: TObject);  //Bouton pour "Modifier"
begin
begin
  if  (edit1.Text = '')then
  begin
    messagedlg('Veuillez sélectionner le champs à modifier', mtWarning,[mbok],0);
  end
  else
  with DataModule2.IBQuery_Format do
  begin
    SQL.Clear;
    SQL.Add('Update FORMAT set TYPE_FORMAT=:Type_Format');
    SQL.Add('WHERE TYPE_FORMAT = :OldType');
    DataModule2.IBQuery_Format.ParamByName('Type_Format').AsString:=edit1.text;
    DataModule2.IBQuery_Format.ParamByName('OldType').AsString:=OldType;
    ExecSQL;
    Refresh_Format.Click; //Bouton qui rafraichi
    edit1.Text:='';
    Ajouter_Format.Enabled:=true;

  end;
end;
  end;


Voili, voilo