String als "normaler" Type

[QuickAndDirty]

Also es gibt ein Problem?
Ich finde irgendwie keins.

@himitsu
Wie steht es mit dem Problem, dass eine Variable vom Functionstyp sich nicht in der Schreibweise unterscheidet, wenn man die Funktion ausführen möchte oder den Variablen Wert auslesen möchte.
Ist das Problem gelöst?

Delphi-Quellcode:

unit Unit1
interface
uses classes, sysutils,usw;
Type
TSimpleFunc = Function:Pointer;

implementation

Function TestF:Pointer;
Begin
  Result := nil;
  Showmessage('tada');
end;

Procedure Do;
var aPointer:Pointer;
    aFunc:TSimpleFunc;
Begin
  aFunc := TestF; // führt es die funktion aus oder speichert es die Adresse der Function in der Functions variable?
  apointer := AFunc as Pointer; // führt es die funktion aus oder liest es den inhalt von der Variable aFunc?
end;