путь к КПК : Программирование

procedure TForm1.UploadButtonClick(Sender: TObject);
var
  sTemplate:TStringList;
  HDes:THandle;
  o1:Poverlapped;
  BytesWritten:DWORD;
  inttemp:longint;
begin
  sTemplate:=TStringList.Create;
  sTemplate.LoadFromFile('scanin.dat');
  cerapiinit;
  HDes := CeCreateFile ('\FLASH\scanin.dat',Generic_Write,File_Share_Write,nil,Create_Always,0,0);
  CEWriteFile(HDes,PChar(sTemplate.Text),Length(sTemplate.Text),BytesWritten,@o1);
  CECloseHandle(HDes);
  CERapiUninit;
  if BytesWritten>0 then messagedlg('Загрузка терминала успешно завершена',mtInformation,[mbok],0) else
    messagedlg('Не удалось загрузить терминал',mtError,[mbok],0);
end;

Диалог = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
Если Диалог.Выбрать() Тогда
	Сообщить(Диалог.ПолноеИмяФайла);
    	Элемент = Диалог.ПолноеИмяФайла;
Иначе
	Сообщить("Файл не выбран");
КонецЕсли;

// Выбор файла с просмотром
ДиалогФыбораФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);
ДиалогФыбораФайла.Фильтр = "Картинка (*.bmp)|*.bmp|Картинка формата jpg (*.jpg)|*.jpg"; 
ДиалогФыбораФайла.Заголовок = "Выберите файл";
ДиалогФыбораФайла.ПредварительныйПросмотр = Истина;
ДиалогФыбораФайла.ИндексФильтра = 0;
Если ДиалогФыбораФайла.Выбрать() Тогда
Сообщить(ДиалогФыбораФайла.ПолноеИмяФайла);
КонецЕсли;

	// Выбор каталога
	ДиалогФыбораКаталога = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.ВыборКаталога);
	ДиалогФыбораКаталога.Каталог = "";
	ДиалогФыбораКаталога.МножественныйВыбор = Ложь; 
	ДиалогФыбораКаталога.Заголовок = "Выберите каталог";
	Если ДиалогФыбораКаталога.Выбрать() Тогда
		Сообщить(ДиалогФыбораКаталога.Каталог);
	Иначе
		Сообщить("Каталог не выбран");
	КонецЕсли;