Ругается(Acces Violation) при чтении DAT-файла

[Человек_Борща]

привет всем!


Есть программа многопоточная.....
имеет 3 потока:
Первый скачивает файлы, запускается нажатием кнопки.

второй скачивает картнку и отрисовывает в Timage
третий проверяет соединение с интернет

второй, третий потоки запускаются при создании формы... в событии Create

все три потока используют информацию из TSecretAdminForm

данные с этой формы хочу хранить в DAT файле..

вот как выглядит структура и процедуры записи/чтения:

type
  TDatSettings = record
  URLLogo:string;          //данные ссылки лого
  URLRepository:string;    //данные ссылки репозитория
  URLFilesList:string;     //данные ссылки файл-листа
  HashType:Integer;        //данные о типе хеша
  AdmPassKeys:string;      //данные о доступе в админку
  URLUpdateSelf:string;    //данные ссылки на самоапдейт
  end;

procedure ReadPName;
procedure WritePName;

procedure SaveToDAT(DatFile:string);
procedure LoadFromDAT(DatFile:String);

var
  my:string;
  ini:TIniFile;


implementation

uses SecretAdminFormUnit, MainUnit;


//////Читаем структуры ДАТ файлов...
procedure SaveToDAT(DatFile:string);
var
  Data:TDatSettings;
  FS:TFileStream;
begin
  my:=ExtractFilePath(ParamStr(0));
  //записываем в структуру...
Data.URLLogo:=SecretAdminForm.LogoEdit.Text;
Data.URLRepository:=SecretAdminForm.FilesEdit.Text;
Data.URLFilesList:=SecretAdminForm.FilesListEdit.Text;
Data.HashType:=SecretAdminForm.HashGr.ItemIndex;
Data.AdmPassKeys:=SecretAdminForm.SecretKeysForThis.Text;
Data.URLUpdateSelf:=SecretAdminForm.UpdateSelfEdit.Text;

Fs:=TFileStream.Create(my+DatFile,fmCreate); //создаём файл UDBS
FS.Write(data,SizeOf(Data));    //пишем структуру в файл
FS.Free;
end;


procedure LoadFromDAT(DatFile:String);
var
  Data:TDatSettings;
  FS:TFileStream;
begin
  my:=ExtractFilePath(ParamStr(0));
  if FileExists(my+DatFile) then
  begin
  FS:=TFileStream.Create(my+DatFile,fmOpenRead);
  FS.Read(Data,SizeOf(Data));
  //читаем структуру...
SecretAdminForm.LogoEdit.Text:=Data.URLLogo;
SecretAdminForm.FilesEdit.Text:=Data.URLRepository;
SecretAdminForm.FilesListEdit.Text:=Data.URLFilesList;
SecretAdminForm.HashGr.ItemIndex:=Data.HashType;
SecretAdminForm.SecretKeysForThis.Text:=Data.AdmPassKeys;
SecretAdminForm.UpdateSelfEdit.Text:=Data.URLUpdateSelf;

FS.Free; //удаляемся
  end else
  MessageBox(0,'Файл настроек отсутствует! Будут загружены стандартные настройки','Ошибка!',MB_OK or MB_ICONERROR);
  //Сообщаем пользоватлю что файл не найден!
end;

процедура записи проходит вроде хорошо... а вот когда вызывать чтение?

если поставить на событие create последней формы то всеравно вылетает ACCES VIOLATION...


последние 2 потока запускаются так же на TAboutForm в событии Create..
есть вот это из DPR:

  Application.Initialize;
  Application.CreateForm(TMainForm, MainForm);
  Application.CreateForm(TSecretAdminForm, SecretAdminForm);
  Application.CreateForm(TSettingsForm, SettingsForm);
  Application.CreateForm(TFilesListGenForm, FilesListGenForm);
  Application.CreateForm(TAboutForm, AboutForm);
  Application.Run;

я думаю что-то, где-то пытается обратиться к ещё не созданному... но найти где это я не могу..

может я неправельно создаю/читаю DAT-файл?

[Человек_Борща]

Народ, поможет кто-нибуть?

[Человек_Борща]

народ ну что ни кто незнает ответа?

[Человек_Борща]

вопрос решён..

решением стало WriteBuffer,ReadBuffer

[Пепел Феникса]

значит ошибка не в этом, так как эти процедуры используют Read/Write

[Человек_Борща]

доп. решением стало перенести все дело на панель.. а не на форму..

так как нету гемороя с ожиданием пока создастся форма..