[cslbcn]

Ya me salió, es así

Código Delphi [-]
procedure TFPostal.DBGrid1CellClick(Column: TColumn);
begin
with DMMestres.ADOQBuscar do
  begin
    vciu:= fieldbyname('loc').asstring;
    vpro:= fieldbyname('reg_code').asstring;
    vpos:= fieldbyname('code_post').asstring;
  end;
end;

procedure TFPostal.DBGrid1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  DBGrid1CellClick(nil);
end;

procedure TFPostal.Button3Click(Sender: TObject);
begin
  FEmpresa.DBLCBCposGenEmp.keyvalue := vpos;
  FEmpresa.EPovGenEmp.text          := vciu;
  FEmpresa.EProGenEmp.text          := vpro;

end;