
procedure TDM.QueryOsobyKODPValidate(Sender: TField);
var
   pole : Variant;
   ss   : String;

begin
   pole := VarToStr(QueryOsobyKODP.Value);
   // pole := Sender.Value;

   if VarIsNull(pole) then begin
      // bez zmian
   end
   else begin
      ss := Pole;
      if length(ss) = 5 then begin
         if Pos('-', ss) = 0 then begin
            ss   := Copy(ss, 1, 2) + '-' + Copy(ss, 3, 3);
            Sender.AsString := ss;
         end;

      end;
   end;
end;
