#pas
begin
 hstfile:=tfilestream.Create('EURUSD1.hst',fmShareDenyNone);// можно сказать что открываем файл
 hstfile.Read(header,sizeof(header));// читаем заголовок
 hstfile.Read(Close1,sizeof(Close1));// читаем 256 элементов масисвва котировок

/// а это цил который рисует то что прочитали на форме, причем
//рисует по клосам, если напишешь так close1[i].open будет рисовать по опенам
// это вобщем и ответ на твой вопрос
 for i:=1 to 255 do 
	begin
	y1:= round(10000*close1[i-1].close)-14600;
	y2:= round(10000*close1[i].close)-14600  ;
		form1.Canvas.MoveTo(i-1,y1);
		form1.Canvas.lineTo(i,y2);
	end;
 hstfile.Free; // можно сказать что закрываем файл
end;