[Shad0VV]

double rez,p1,p2;
char *data;
int k,H,L,BR;

float a;
OpenDialog1->Execute() ;
H=FileOpen(OpenDialog1->FileName, fmOpenRead);
L=FileSeek(H,0,2);
FileSeek(H,0,0);
data=new char[L+1];
memset(data,0,L+1);


--- FileRead(H,data,L);

прошу прощения, 10ку ставил для проверки считывания сразу double