Работа с сотовыми телефонами

Code:

procedure TForm1.Button1Click(Sender: TObject);

var BytesWritten: DWORD;

s: string;

d: array[1..1500] of Char;

BytesRead: DWORD;

i: Integer;

Result: string;

begin

s := Edit1.Text; //Берём команды из Edit1…

s := s + #13 + #10;

WriteFile(ComFile, s[1], Length(s), BytesWritten, nil); //…и посылаем их телефону

Result := '';

if not ReadFile(ComFile, d, SizeOf(d), BytesRead, nil) then

   begin

     MessageDlg('Ошибка чтения!', mtError, [mbOK], 0);

       exit;

   end;

s := '';

for i := 1 to BytesRead do //Считываем ответ от телефона

   s := s + d[I];

Result := s;

Memo1.Lines.Add(Result); //Выводим ответ от телефона в Memo

end;