Auswertung Lokale Variablen unvollständig

[Benmik]

Ich habe mal rasch diese Prozedur rausgehauen:

Delphi-Quellcode:

procedure TForm3.Test;
var FS:TFileStream;
    Datname:string;
    Dateigröße:Cardinal;
//-------------------------------------------------------------------------------------
  function LeseDateiInStream:Boolean;
  begin
    FS := TFileStream.Create(Datname,fmOpenRead or fmShareDenyWrite);
    Dateigröße := FS.Size;
    Result := (Dateigröße > 0);
  end;
//-------------------------------------------------------------------------------------
begin
  Datname := 'C:\Temp\Test.txt';
  If not LeseDateiInStream
    then exit;
end;

... aber was passiert? Die Variablen werden in der Unterprozedur ausgewertet. Heute ist wohl nicht mein Frage-Tag. Ich hatte gestern eine Prozedur, wo es nicht klappte, wenn ich wieder auf die stoße, dann melde ich mich wieder.