احتساب الوقت

جرب

procedure TForm1.Button1Click(Sender: TObject);
var
  fh,fm,sh,sm : integer;
begin
  fh := strtoint(copy(edit1.Text,1,2));
  fm := strtoint(copy(edit1.Text,4,2));
  sh := strtoint(copy(edit2.Text,1,2));
  sm := strtoint(copy(edit2.Text,4,2));
  if fm+sm >= 60 then
  begin
	edit3.Text := inttostr(fh+sh+1)+':'+inttostr((fm+sm)-60);
  end
  else
  begin
	edit3.Text := inttostr(fh+sh)+':'+inttostr(fm+sm);
  end;
end;

مع مراعاة أن الدقائق لا تتجاوز الـ 59 و يمكنك إضافة أن الساعات لا تتجاوز الـ 24 فتصبح يوم

يمكنك أخصار الكود لكني وضعته بهذا الشكل للتوضيح

أرجو أن أكون قد فهمت مطلبك