implementation

{$R *.DFM}

uses ActiveX;

procedure TmyApp.sendTransaction(Sender: TObject);
var
  GeoIP: OLEVariant;

begin
  GeoIP := CreateOleObject('GeoIPCOM.GeoIP');

  GeoIP.loadDataFile("c:\Program Files\GeoIP\GeoIPDemo.dat");
  edtStatus.Text := GeoIP.country_code_by_name("www.yahoo.com");
end;