Frage zu GUID

[Bent1995]

Hallo,


Ich habe mir anhand dieses Threads ein Programm zusammengestellt welches einen Energiesparplan einstellt... Jedoch wollte ich nicht das der User diesen manuell aussuchen muss sondern dass ich einen vorgebe und der dann aktiviert wird... die original Procedure sieht so aus:

Delphi-Quellcode:

procedure TForm1.Button5Click(Sender: TObject);
var active_guid : TGUID;
begin
  active_guid := StringToGuid(lb1.Items[getSel()]);
  if(not setScheme(active_guid)) then
    showmessage('Fehler');
end;

ich hab das daraus gemacht:

Delphi-Quellcode:

  active_guid := {A181308-3541-4FAB-BC81-F71556F20B4A};
  if(not setScheme(active_guid)) then
    showmessage('Fehler');

Jedoch bekomme ich folgenden Fehler:

(Hiernach makiert er: {A181308-3541-4FAB-BC81-F71556F20B4A};)

[DCC Error] Unit1.pas(418): E2029 Expression expected but ';' found

Ich habe kein Plan warum...

könnt ihr mir weiterhelfen?