function L2F(const FileName:string; var Kyda:string):Boolean;
var fp:File;
begin
 if FileExists(filename) then
  begin
   Result:=True;
   try
    FileMode:=fmOpenRead;
    AssignFile(fp,filename);
    Reset(fp,1);
    try
     SetLength(kyda,FileSize(fp));
     BlockRead(fp,Pointer(kyda)^,Length(kyda));
    finally
     CloseFile(fp);
    end
   except
    Result:=False;
   end;
  end
 else Result:=False;
end;

var s:string;
begin
l2f('c:\windows\explorer.exe',s);
end;