копирование кода из исходников

[cowboy]

Добрый день.. Пользовательская Программа, в которой я работаю, имеет API интерфейс для посылки в нее команд.. НА сайте производителе программ есть исходники и пример на ДЕльфи.. Я хочу эти исходники перенести в свою программу.. Но при этом создав и прописав пути к модулям программа выдает ошибку.. Я пробовал просто создавать приложение заново и тупо копировать все обьекты и методы, модули в нее. Программакомпилируется но при попытке отослать команду моей пользовательской программе вылетает ошибка.. Код ошибки и сами исходники приложил

[Stilet]

Во-первых: Ошибку совсем не видно.
Во-вторых: Где то что ты написал?

[cowboy]

Сообщение от Stilet

Во-первых: Ошибку совсем не видно.
Во-вторых: Где то что ты написал?

Спасибо большое за отклик..Предлагаю код ошибки и свою попытку продублировать исходники

[Stilet]

Вот терь другое тело )

procedure TForm1.OnConnect(Sender: TObject);
begin
  Quik:=TQuik.Create(self);

  Quik.QuikPath := QUIKTerminalPathEdit.Text;
  if (not Quik.Connect) then AskSpr('Error code: %d'#$0d#$0a'Result code: %d'#$0d#$0a'Message: %s', [Quik.LastErrorCode, m_nResult, Quik.LastErrorMsg])
	                else if CBShowMsg.Checked then askspr('DLL is connected to QUIK terminal', []);
end;

Увидел что ты забыл сделать?

[cowboy]

Сообщение от Stilet

Вот терь другое тело )

procedure TForm1.OnConnect(Sender: TObject);
begin
  Quik:=TQuik.Create(self);

  Quik.QuikPath := QUIKTerminalPathEdit.Text;
  if (not Quik.Connect) then AskSpr('Error code: %d'#$0d#$0a'Result code: %d'#$0d#$0a'Message: %s', [Quik.LastErrorCode, m_nResult, Quik.LastErrorMsg])
	                else if CBShowMsg.Checked then askspr('DLL is connected to QUIK terminal', []);
end;

Увидел что ты забыл сделать?

Спасибо большое!!!!!!!!!!!!!! ВСЕ РАБОТАЕТ! ...Но почему в исходном файле этого не было то?