[Alegun]

Код:

procedure TFloads.ConvertTimeToPoint(IDAct: string);
var Mass : string;
MPoint,h,m : string;
i,Hour,Min,Total : integer;
begin
//CheckPoint();
if CheckSumm = True then begin
Mass := IDAct;
  for i:= 0 to Listbox3.Count - 1 do begin
    MPoint := listbox3.Items[i];
    //Delete(MPoint,1,1);
    H := Copy(MPoint,1,2);
    M := Copy(MPoint,4,5);
    Hour := StrToInt(H);
    Min := StrToInt(M);
    Total := Hour + Min;
    Mass := Mass + ';' +  MPoint;
   end;
Listbox1.Items.Add(Mass);
end;
end;