Timage, ошибка

[Smallboy]

Всем спасибо! решил сделать вот так. Вроде работает!

procedure TForm2.LoadImg();        // загружаем подпись на экран для просмотра
var
  CreateName : string;
  ScanPath   : string;
begin
//  sleep(10000);
  IniA:=TiniFile.Create(extractfilepath(paramstr(0))+'Anketa.ini');
  ScanPath:= IniA.ReadString('Path','ScanPath','');
  CreateName:=ScanPath+Fname.Text+Sname.Text+Fdate.Text+'.bmp';
  IniA.Free;
  if FileExists(CreateName) = true then
  begin
     Image1.Picture.LoadFromFile(CreateName);
   //  Application.ProcessMessages;
  end;
end;

procedure TForm2.ScanBtnClick(Sender: TObject);
Var
   Proc               : LongBool;
   StartUpInfo        : TStartupInfo;
   ProcessInformation : TProcessInformation;
   Error              : integer;
   ExitCode           : cardinal;
begin
   if (Fname.Text='') and (Sname.Text='') and (Tname.Text='') and (Pasport.Text='') then //проверка на заполнение полей перед сканированием
      Showmessage('Для сканирования подписи заполните все поля!')
   else
   begin
      IniA:=TiniFile.Create(extractfilepath(paramstr(0))+'Anketa.ini');
      IniA.WriteString('LastClientData','Fname',Fname.Text);
      IniA.WriteString('LastClientData','Sname',Sname.Text);
      IniA.WriteString('LastClientData','Tname',Tname.Text);
      IniA.WriteString('LastClientData','Date',Fdate.Text);
      IniA.Free;
      try
  //     Winexec('E:\D7\N1\menu\DemoButtonsProject.exe',SW_SHOW);
         FillChar(StartUpInfo, SizeOf(TStartUpInfo), 0);
         with StartUpInfo do
         begin
            cb := SizeOf(TStartUpInfo);
            wShowWindow := SW_SHOWNORMAL;
            dwFlags := STARTF_USESHOWWINDOW or STARTF_FORCEONFEEDBACK;
         end;
         Proc:=CreateProcess('E:\D7\N1\menu\DemoButtonsProject.exe',nil,nil ,nil,false,NORMAL_PRIORITY_CLASS,nil,nil,StartUpInfo,ProcessInformation);
           if Proc then
           with ProcessInformation do
           begin
              WaitForInputIdle(hProcess, INFINITE); // ждем завершения инициализации
              WaitforSingleObject(hProcess, INFINITE); // ждем завершения процесса
              GetExitCodeProcess(hProcess, ExitCode); // получаем код завершения
              CloseHandle(hThread); // закрываем дескриптор процесса
              CloseHandle(hProcess); // закрываем дескриптор потока
           end
           else
           begin
              Error := GetLastError;
              showmessage('Код завершения:'+IntToStr(Error));
           end;
      except
         Showmessage('Ошибка сканирования!')
      end;
      LoadImg();
   end;
//   ScanBtn.Enabled:=False;

end;

[northener]

Только не надо заменять конкретное сообщение об ошибке на ничего не говорящее "Ошибка сканирования!"
Сделайте примерно так:

except
  on E : Exception do
    ShowMessage('Ошибка сканирования!'+#13#10+E.Message);
end;