برنامج مواقيت الصلاة لكل ولايات الوطن ( للجزائر فقط )

[onexite]

السلام عليكم
هناك مشكل وهو اقرب وقت
هذه محاولة لا اعرف اين يكمن المشكل

PHP كود :

function Find_Min(Arr: array of TDateTime): TDateTime;
var
  i : Integer; M :TDateTime;
begin
  M:=Arr[0];
  for i:=0 to 5 do
if Arr[i]<M then Result:=Arr[i];
end;

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
tm:Array[0..5] of TDateTime;
begin
 for i := 0 to 5 do  begin
  tm[i]:= Time-strtotime(st[i]);
end;
  showmessage(timetostr( Find_Min(tm)))
end; 


التنبيه

الاضافات
اليوم بالعربي
كم بقي لوقت الصلاة
اضافة التنبيه والاذان
تصحيح التوقيت يمكنكم التاكد بالمقارنة مع الا صلاتي النتيجة متطابقة