Chamar Procedure Delphi

Boa noite, tenho a seguinte procedure

procedure TfrmCliente.edtConsultaExit(Sender: TObject);
begin
(vazio)
end;

e gostaria de que essa procedure acima fizesse a mesma coisa que a procedure abaixo, sem ter que digitar todo código novamente, seria possível?

procedure TfrmCliente.btnPesquisarClick(Sender: TObject);
begin
(50 linhas de código)
end;

Alguém teria alguma sugestão de como faço?