[hardcor4uk]

Table1.DatabaseName := (ExtractFilePath(Application.ExeName) + 'resourse');
Table1.TableName := 'FIO.DB';
Table2.DatabaseName := (ExtractFilePath(Application.ExeName) + 'resourse');
Table2.TableName := 'avto.DB';
Table3.DatabaseName := (ExtractFilePath(Application.ExeName) + 'resourse');
Table3.TableName := 'dover.DB';
вот.
и я заметил что на семерках робит а на xp ругается.