OpenDialog Como editar os Botoes de Abrir e Cancelar?

if OpenDialog1.Execute then
	ShowMessage('Abriu um arquivo.')
else
	ShowMessage('Cancelou a operação.')

procedure TfrmVisualizadorProcessos.opdNomeArquivoSelectionChange(Sender: TObject);
begin
    if (opdNomeArquivo.FileName <> '') then
edtProcuraArquivo.Text := opdNomeArquivo.FileName;
end;// Fim do evendo opdNomeArquivoSelectionChange

procedure TfrmVisualizadorProcessos.opdNomeArquivoSelectionChange(Sender: TObject);
begin
   case opdNomeArquivo.Execute of

   Botão de Canelar: {não sei a referencia} btnCancelarClick(Sender); 
   Botão de Abrir  : {não sei a referencia} edtProcuraArquivo.Text := opdNomeArquivo.FileName;
end;

if opdNomeArquivo.Execute then//se clicar em Abrir
begin
	if opdNomeArquivo.FileName <> '' thn
	begin
		//fazer alguma coisa no dataset
		dataset.Post; //
	end
	else
		dataset.Cacel; //cancela a edição
	end;
end

procedure Teste;
begin
 ClientDataSet1.Append;
 ClientDataSet1.FieldByName('ID').AsInteger := iID;

  if NOT opdNomeArquivo.Execute then
  begin
    ClientDataSet1.Cancel;
    Exit;
  end;

  ClientDataSet1.FieldByName('').AsString := opdNomeArquivo.filename;
  ClientDataSet1.Post;

end

procedure TfrmVisualizadorProcessos.btnNovoClick(Sender: TObject);
begin  {Botão para Add nó na arvore e no banco de dados}
  AddNo(ntFile);    {Isso Chama um  DataModuleGeral.tbArquivo.Append; e um  opdNomeArquivo.Execute;}  
end;// Fim btnNovo OnClick

procedure TfrmVisualizadorProcessos.opdNomeArquivoSelectionChange(Sender: TObject);
begin

  if (opdNomeArquivo.FileName <> '') then
    edtProcuraArquivo.Text := opdNomeArquivo.FileName  // <=== essa 

end;// Fim do evendo opdNomeArquivoSelectionChange

btnCancelarClick(Self);

  if opdNomeArquivo.Execute then
    if (opdNomeArquivo.FileName <> '') then
      edtProcuraArquivo.Text := opdNomeArquivo.FileName
  else
  begin
    btnCancelarClick(Self);
    Exit;
  end;

Begin
  openDialog1.Execute;
  if opdNomeArquivo.Files.Count = 0 then
    ShowMessage('Botão cancelar!');
end;