function ConvertTime(AStr: string): TTime; var H, N, S: string; begin H := copy(Astr, 1, 4); N := copy(AStr, 6, 2); S := copy(AStr, 9, 2); Result := strtoTime(Format('%s%s%s', [H, N, S])); end;
str:=datetostr(DateTimePicker.date); s:='' for i:=0 to length(str)-1 do begin if str[i]<>'-' then s:=s+str[i]; end;
var
H, N, S: string;
begin
H := copy(Astr, 1, 4);
N := copy(AStr, 6, 2);
S := copy(AStr, 9, 2);
Result := strtoTime(Format('%s%s%s', [H, N, S]));
end;
s:=''
for i:=0 to length(str)-1 do
begin
if str[i]<>'-' then
s:=s+str[i];
end;