созданию виртуального стенда по механике

[VALIK]

Помогите пожалуйста. Я уже на грани нервного срыва уже неделю бьюсь над этой задачей, все чаще появляются желание кинуть все нафик.

Начал выполнять дипломную работу по созданию виртуального стенда по механике. Появились проблемы. В работе мне придется в форму вводить кое-какие данные.

После этого по нажатию на кнопку на форме открывался заранее созданный файл Exel и данные из окошек формы переносятся в Exel файл в определенные ячейки где будет происходить дальнейшие расчеты. Еще бы мне очень интересно как сделать так чтобы оригинал файла Exel который я создам оставался а данные вводились в его копию с другим именем.
За все ответы заранее благодарен БЕЗМЕРНО.
P.S. Если возможно напашите подробно как выполнять операции а то я полный нОль.

[Speeker]

Ну, что бы заполнялась копия - не проблема, просто в начале процедуры создавай копию файла и работай с нею. А вообще я не понимаю, зачем Excel.
Посмотри этот код и напиши что получилось

var    ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData  : Variant; 
   TemplateFile : String;    
BeginCol, BeginRow, i, j : integer;    
RowCount, ColCount : integer;
begin  /
/ Координаты левого верхнего угла области, в которую будем выводить данные
BeginCol := 1;  BeginRow := 5;  // Размеры выводимого массива данных
 RowCount := 100;  ColCount := 50;  // Создание Excel  ExcelApp := CreateOleObject('Excel.Application');  
// Отключаем реакцию Excel на события, чтобы ускорить вывод информации  ExcelApp.Application.EnableEvents := false;  
//  Создаем Книгу (Workbook)//  Если заполняем шаблон, то Workbook := ExcelApp.WorkBooks.Add('C:\MyTemplate.xls');
Workbook := ExcelApp.WorkBooks.Add;  // Создаем Вариантный Массив, который заполним выходными данными  ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);  // Заполняем массив
for I := 1 to RowCount do    
for J := 1 to ColCount do      
ArrayData[I, J] := J * 10 + I;  // Левая верхняя ячейка области, в которую будем выводить данные
Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];  // Правая нижняя ячейка области, в которую будем выводить данные
Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow  + RowCount - 1, BeginCol +ColCount - 1];  // Область, в которую будем выводить данные
Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];  // А вот и сам вывод данных// Намного быстрее поячеечного присвоения
Range.Value := ArrayData;  // Делаем Excel видимым
ExcelApp.Visible := true;