أنواع المعطيات

اذا كان لدينا ما يلي :

Unit Prof;

Function Hello(By:TBytes):boolean;

var

Ol:Toverlapped;

HWNd: Thandle;

dwBTR,dwBr:integer;

begin

WriteFile(HWnd,By,dwBtr,dwBR,OL);

end;

و أنا أريد اتستدعاء الدالة لأكثر من نوع على سبيل المثال :

unit Ok;

uses prof;

type

ToK=record

Hello:string[10];

World:Integer;

end;

var

ok :TOk;

Begin

if Hello (Ok) then ...........

end.

لكن الاستدعاء خاطئ لان الوسيط ليس سجل و أنا لا أستطيع تغيير نوع الوسيط وانما أريد تحويل السجلات و المصفوفات الى

TBytes;

كيف ذلك و شكراً