Ortungsdieste auf iPhone kaputt?

Hi, Mein neues iPhone 4S befindet sich wohl in Shanghai? Heute morgen wollte ich mich um 7 Uhr wecken lassen. Doch der Wecker hat nicht geklingelt. Als ich dann aufgewacht bin, war die normale Uhrzeit irgendwie 7 Stunden umgestellt und hat die Weckzeit so übersprungen. In den Einstellungn habe ich gesehen, dass ich mich in der Zeitzone Shanghai befinde.

Warum das? Ich hoffe, ihr könnt mir weiterhelfen.

lg
mycenter

; erwartet, aber IMPLEMENTATION gefunden

Hallo,

ich habe seit Stunden ein seltsmes Problem mit meinem Delph2009
Der Compiler spuckt mir die Fehlermeldung

(semikolon) “; erwartet, aber IMPLEMENTATION gefunden” aus und
ich komme nicht weiter, obwohl ich schon über 20 Jahre PASCAL programmiere.
Aber manchmal ist mann mit Blinheit geschlagen :)

Hier der Quelltextausschnitt:

program Main;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls,
Menus, StdCtrls, Dialogs, Buttons, Messages, ExtCtrls,
ComCtrls, ModulWindow,
AddProject_1_Unit, IniFiles, new_Window, HList, FMXUtils,
IniUnit, Clipbrd, Projectdaten, ZusatzForm, shellapi,
cpc_lib_Demo, UHelper, TreeEdit, VarTable, FileCtrl;

type
TMainForm = class(TForm);
MainMenu1= TMainMenu;
Datei= TMenuItem;
Window1= TMenuItem;
Help1= TMenuItem;
N1=TMenuItem;
FileExitItem=TMenuItem;
WindowCascadeItem=TMenuItem;
WindowTileItem=TMenuItem;
WindowArrangeItem=TMenuItem;
HelpAboutItem= TMenuItem;
OpenDialog= TOpenDialog;
WindowMinimizeItem= TMenuItem;
SpeedPanel= TPanel;
OpenBtn= TSpeedButton;
SaveBtn= TSpeedButton;
ExitBtn= TSpeedButton;
StatusBar= TStatusBar;
Timer1= TTimer;
closeProject= TMenuItem;
Projektffnen1= TMenuItem;
NeuesProjekt1= TMenuItem;
Projektspeichernunter1= TMenuItem;
Projektspeichern1= TMenuItem;
SaveDialog1= TSaveDialog;
Tools1= TMenuItem;
CanMonitor1= TMenuItem;
Taschenrechner1= TMenuItem;
AcrobatReader1= TMenuItem;
Digitalout= TMenuItem;
OpenDialog1= TOpenDialog;
Modulhizufgen1= TMenuItem;
N2= TMenuItem;
Modulelschen1= TMenuItem;
Moduleditieren1= TMenuItem;
Allevergrern1= TMenuItem;
Download1= TMenuItem;
closeAll= TSpeedButton;
HHITextdownload1= TMenuItem;
Memo1= TMemo;
PopupMenu1= TPopupMenu;
Umbennen1= TMenuItem;
N3= TMenuItem;
Knotenhinzufgen1= TMenuItem;
N4= TMenuItem;
Knotenlschen1= TMenuItem;
Unterknotenhinzufgen1= TMenuItem;
N5= TMenuItem;
N6= TMenuItem;
Parameterbearbeiten1= TMenuItem;
Variablenliste1= TMenuItem;
Variablen1= TMenuItem;
N7= TMenuItem;
AlleParameterSenden1= TMenuItem;
AlleParameter= TMenuItem;
Freischalten= TMenuItem;
QuelltextItem= TMenuItem;
ProgDlItem= TMenuItem;
Freischaltmodusndern1= TMenuItem;
Passwrterfestlegen1= TMenuItem;
PROCEDURE FormCreate(Sender: TObject);
PROCEDURE WindowCascadeItemClick(Sender: TObject);
PROCEDURE WindowTileItemClick(Sender: TObject);
PROCEDURE WindowArrangeItemClick(Sender: TObject);
PROCEDURE FileExitItemClick(Sender: TObject);
PROCEDURE HelpAboutItemClick(Sender: TObject);
PROCEDURE Projektffnen1Click(Sender: TObject);
PROCEDURE Projektspeichernunter1Click(Sender: TObject);
PROCEDURE NeuesProjekt1Click(Sender: TObject);
PROCEDURE Projektspeichern1Click(Sender: TObject);
PROCEDURE closeProjectAll(Sender: TObject);
PROCEDURE OpenFile(Sender: TObject);
PROCEDURE SaveAsAll(Sender: TObject);
PROCEDURE Save_as(Sender: TObject);
PROCEDURE closeProjectClick(Sender: TObject);
PROCEDURE ListProAdd(Sender: TObject;Text : STRING);
PROCEDURE OpenBtnClick(Sender: TObject);
PROCEDURE SaveBtnClick(Sender: TObject);
PROCEDURE Modulhizufgen1Click(Sender: TObject);
PROCEDURE Modulelschen1Click(Sender: TObject);
PROCEDURE Moduleditieren1Click(Sender: TObject);
PROCEDURE CanMonitor1Click(Sender: TObject);
PROCEDURE WindowMinimizeItemClick(Sender: TObject);
PROCEDURE Allevergrern1Click(Sender: TObject);
PROCEDURE Taschenrechner1Click(Sender: TObject);
PROCEDURE AcrobatReader1Click(Sender: TObject);
PROCEDURE HHITextdownload1Click(Sender: TObject);
PROCEDURE CANOPEN(Sender: TObject;a : Integer);
PROCEDURE FormCloseQuery(Sender: TObject; var CanClose: Boolean);
PROCEDURE AuswahlInRead(Sender: TObject;Wert : String;i : Integer);
PROCEDURE Timer1Timer(Sender: TObject);
PROCEDURE Bearbeiten1Click(Sender: TObject);
PROCEDURE Umbennen1Click(Sender: TObject);
PROCEDURE Knotenhinzufgen1Click(Sender: TObject);
PROCEDURE Unterknotenhinzufgen1Click(Sender: TObject);
PROCEDURE Knotenlschen1Click(Sender: TObject);
PROCEDURE Parameterbearbeiten1Click(Sender: TObject);
PROCEDURE Variablenliste1Click(Sender: TObject);
PROCEDURE AlleParameterSenden1Click(Sender: TObject);
procedure closeAllClick(Sender: TObject);
procedure ZuProffesional1Click(Sender: TObject);
procedure QuelltextItemClick(Sender: TObject);
procedure ProgDlItemClick(Sender: TObject);
procedure Passwrterfestlegen1Click(Sender: TObject);
procedure DigitaloutClick(Sender: TObject);
IMPLEMENTATION//
{ Private declarations }
PROCEDURE ShowHint(Sender: TObject);
Procedure UndoProject;
procedure deltree(Dirname : string);
procedure CopyDirContentsTo(Dirname, DestDir : string);
PROCEDURE MainMenue1(Sender: TObject);

begin
{ Public declarations }
end;

type
Ptr_CPC_MSG = ^CPC_MSG;

var
MainForm : TMAINForm;
professional : byte; // Code für Freischaltung/Berechtigung 1-4
projektOffen : Boolean; // true, falls gerade ein Projekt geöffnet

MainIniPath : String;
MyIni : TIniFile;
MyProjectIni : TIniFile;
zahl : Integer;
FileList : THistoryList;
IniPfad : String;
PPfad : String;
SpeicherPfad : String;
CanHandle : Integer;
Time : Boolean;
MyMsgPtr : CPC_CAN_MSG;
MsgHandlePtr : Ptr_CPC_MSG;
Adress : Word;
AdressHelp : String;
Fehler : Integer;
KnotenNr : Integer;
Format : String;
CanAktiv : Boolean;

implementation

{$R *.DFM}