[ivankom]

Подскажите как в функции использовать компонент, например мне нужен ComPort1.

Код:

function SendSMS(telephone, smstext: string): integer;
begin
  ComPort1.Open;
  ComPort1.WriteStr('AT+CMGF=1' + #13#10);
  Sleep(50);
  ComPort1.WriteStr('AT+CMGS='+telephone+#13#10);
  Sleep(50);
  ComPort1.WriteStr(smstext);
  Sleep(50);
  ComPort1.WriteStr(Chr(26));
  Sleep(50);
  ComPort1.Close;
end;

При компиляции ругается на Undeclared identifier: 'ComPort1'

Если записать функцию как

Код:

function TForm1.SendSMS(telephone, smstext: string): integer;

то функция работает, но мне нужно использовать ее в dll библиотеке, поэтому TForm1.SendSMS не прокатит.