In Funktionen auf Objekte zugreifen..

[th1984]

Hallo,

rund 2 Stunden google Zeit haben nichts gebracht, ich bin ratlos. Und zwar kann ich in einer Funktion auf kein Objekt zugreifen. Also nicht auf das TrayIcon Objekt und auch nicht auf das Objekt mit dem ich im Internet eine Seite runterlade. Wahrscheinlich muss man das auch irgendwo deklarieren, aber ich hab ja keine Ahnung.

Hier meine Deklarationen:

Delphi-Quellcode:

unit server;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IdBaseComponent, IdComponent, IdTCPServer, StdCtrls,
  CoolTrayIcon, Menus, IEHTTP3, ComCtrls;

type
  TForm1 = class(TForm)
    Server: TIdTCPServer;
    Edit1: TEdit;
    TrayIcon: TCoolTrayIcon;
    PopupMenu1: TPopupMenu;
    Beenden1: TMenuItem;
    Anzeigen1: TMenuItem;
    N1: TMenuItem;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Edit3: TEdit;
    Edit4: TEdit;
    Label3: TLabel;
    Internet: TIEHTTP;
    procedure ServerExecute(AThread: TIdPeerThread);
    procedure Beenden1Click(Sender: TObject);
    procedure Anzeigen1Click(Sender: TObject);
    procedure TrayIconStartup(Sender: TObject; var ShowMainForm: Boolean);

  private
    { Private declarations }
    aktVersion: String;

  public
    { Public declarations }
  end;

Und hier meine Funktion...

Delphi-Quellcode:

function CheckVersion(): String;
  var IntVersion: TStringList;
begin

  Internet.get_url('http://update.tictactom.com/version.txt');
  IntVersion := Internet.result_sl;
  result := IntVersion[0];

end;

Aber es kommt jedes Mal der Fehler Undeclared identifier: 'Internet'

Würde mich freuen wenn mir da jemand Helfen könnte


Danke im Vorraus

Thomas