Delphi E Exclusão No Banco De Dados

[Guest - @_xaiver31 -]

Bom dia Pessoal

Gostaria de que se vocês pudessem passar um código para que o delphi faça um questionamento se a pessoa realmente quer excluir determinado registro, tentei fazer , mas não consegui segue o codigo

procedure TFFrmCliente.ExcluirClick(Sender: TObject);

var

resposta : String;

begin

ShowMessage('Você realmente quer excluir este Registro?');

Primeiro.Enabled:= False;

Anterior.Enabled:= False;

Proximo.Enabled:= False;

Ultimo.Enabled:= False;

Novo.Enabled:= False;

Gravar.Enabled:= False;

Cancelar.Enabled:= True;

Excluir.Enabled:= False;

Editar.Enabled:= False;

Relatorios.Enabled:= False;

Sair.Enabled:= False;

if resposta = mryes then

begin

TCliente.Delete;

end;

end;

Por favor veriquem o que esta errado..... Obrigado

Desde já agradeço a boa vontade deste Forum

[Churc]

if messagebox('deseja realmente bla', 'Pergunta', mb_yesno or mb_iconquestion) = idYes then tcliente.delete;

[Guest - a_xavier31 -]

Caro churc, muitissimo obrigado pela ajuda , mas na hora de compilar deu estes seguintes erros.

[Error] FrmCliente.pas(205): Incompatible types: 'HWND' and 'String'

[Error] FrmCliente.pas(205): Incompatible types: 'Integer' and 'PAnsiChar'

Por favor se você ou alguém da conunidade puder me ajudar agradecerei.

Obrigado desde já agradeço!!!!

[Kikonanet]

Olá,

Tenta assim:

if Application.Messagebox('Confirmar Exclusão?','Atenção!', MB_IconQuestion + Mb_YesNo + MB_DefButton2) = IDYes then ...

Abs.

Kiko