Typenlosen Datentyp an Funktion übergeben => size = 0

[ichbins]

hi,

ich hab folgende Funktion geschrieben

Delphi-Quellcode:

function tfile.blockwrite(const buf; bytecount:integer):integer;
var
  written:integer;
begin
  showmessage('Towrite: '+inttostr(bytecount)+' Bufsize: '+inttostr(sizeof(buf)));
  system.BlockWrite(executor,buf,bytecount,written);
  showmessage('überstanden');
  result:=written;
end;

wenn ich jetzt ein
  byte als buf übergebe, müsste sizeof(buf) ja eigentlich 1 sein Im Message zeigt er mir aber 0 an. Das Message "überstanden" erscheint nicht, folglich muss der Fehler also im system.blockwrite auftreten. Is ja auch logisch, da BUF die Size of 0 hat...

Was mach ich da falsch?