bidi codigo enviado para amigos que pediram

Citação:
Alô amigos sergio e bruno Estou mandando o codigo para análise de voces a respeito do ta bidi que falei outro dia desculpe a demora é porque custei achar nos meus arquivos antigos do tempo do colégio, obrigado a atenção.

procedure TForm1.BtFecharClick(Sender: TObject);
begin
if Application.MessageBox(Deseja Finalizar a Aplicação ?,Confirmação,MB_YESNO)=idyes then
application.terminate;

end;

procedure TForm1.BtIncluirClick(Sender: TObject);
begin
with DM.QRgrupo do
Begin
if edtDescricao.Text = then
begin
Application.MessageBox(informe a descrição,Aviso,MB_Ok+MB_ICONWARNING);
edtDescricao.SetFocus;// coloca o foco no componente
Abort;// cancela
end
else
Begin
Close;
SQL.clear;
// a tabela grupo tem os campos
Sql.Add(insert into grupo(GRUPO) values(:gGrupo));
Parameters.ParamByName(gGrupo).value := edtDescricao.text;
//Parameters.ParamByName(pGRUPO).Value := edtDescricao.Text;
ExecSQL;
ShowMessage(Dados inseridos com sucesso !!!);

Close;
Sql.Clear;
Sql.Add(Select * from GRUPO);
//SQL.Clear AnyProc;
SQL.Clear;
SQL.Add(Select * from Grupo);
//SQL.AddBiDiModeExStyle(Select * from Grupo);
open;
end;
end;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
DM.QRGrupo.Active:=False;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
DM.QRGrupo.Active:=True;
EdtDescricao.SetFocus;
end;
Amigos Joel, e bruno

end.