if Pos('.', FPart) ‹› 0 then rparse(FPart, '.');

Add(FilePartElm,982139,238,224)
{
 Mode=3
 link(onPart,13131503:doMessage,[])
}
Add(Edit,1483531,175,217)
{
 Left=25
 Top=50
 Width=325
 Text="C:\alfa\dac.0\uxtr"
 ClearAfterEnter=1
 link(onEnter,982139:doPart,[])
}
Add(Message,13131503,294,224)
{
}

procedure THIFilePartElm._work_doPart3;  // ext name
begin
   FPart := ReadString(_Data, _data_FileName, '');
   if FPart = '' then exit;
//   FPart := ExtractFileExt(FPart);
   if Pos('/', FPart) <> 0 then
     FPart := rparse(FPart, '/')
   else
     FPart := rparse(FPart, '\');
   if Pos('.', FPart) <> 0 then
   begin 
     FPart := rparse(FPart, '.');
     FPart := '.' + FPart;
   end else FPart := '';
    _hi_CreateEvent(_Data, @_event_onPart, FPart);
end;

procedure THIFilePartElm._work_doPart4;  // ext name WOPoint
begin
   FPart := ReadString(_Data, _data_FileName, '');
   if FPart = '' then exit;
//   FPart := ExtractFileExt(FPart);
//   delete(FPart, 1, 1);
   if Pos('/', FPart) <> 0 then
     FPart := rparse(FPart, '/')
   else
     FPart := rparse(FPart, '\');

   if Pos('.', FPart) <> 0 then FPart := rparse(FPart, '.')
    else FPart := '';
    _hi_CreateEvent(_Data, @_event_onPart, FPart);
end;

procedure THIFilePartElm._work_doPart6;  // path name WOExt
var ne:string;
begin
   FPart := ReadString(_Data, _data_FileName, '');
   if FPart = '' then exit;

   if Pos('/', FPart) <> 0 then
     begin ne := rparse(FPart, '/'); FPart := FPart + '/'; end
   else
     begin ne := rparse(FPart, '\'); FPart := FPart + '\'; end;
   if Pos('.', ne) <> 0 then rparse(ne, '.');
   FPart := FPart + ne;
   _hi_CreateEvent(_Data, @_event_onPart, FPart);
end;