CodeBase64 wirft Fehler auf - Warum?

[torud]

also ich habe mir mal den code kopiert und natuerlich gleich ausprobiert. die fehlermeldung kommt nun nicht mehr, dafuer aber auch kein inhalt.

folgendes tue ich zum Erstellen:

Code:

var
   FileID:TStringlist;
begin
             FileID := TStringList.Create;
             FileID.Text := Base64Encode('1234/abcd');
             ShowMessage(fileid.Text);
             FileID.SaveToFile(App_Path + '\license.id');
end;

und folgendes zum Auslesen

Code:

procedure TForm1.CheckUserID;
var
  FileID:TStringlist;
begin
        if FileExists(App_Path + '\license.id') then
          begin
             FileID := TStringList.Create;
             FileID.LoadFromFile(App_Path + '\license.id');
             ShowMessage((FileID.Text));
             ShowMessage(Base64Decode(FileID.Text));
             if Base64Decode(FileID.Text) = '1234/abcd' then exit
             else
               begin
                 PageControl1.Pages[1].Destroy;
                 PageControl1.Pages[3].Destroy;
               end;
          end
        else
          begin
             PageControl1.Pages[1].Destroy;
             PageControl1.Pages[3].Destroy;
          end;
end;

Die Messagebox mit dem Inhalt der Datei stimmt.
Leider gibt mir die Messagebox mit dem encodeten Inhalt einen Leerstring zurueck.

hm, wo liegt das problem???