[UnreNal]

Получается воспроизвести только первый файл и без учёта времени. Помогите доработать пожалуйста!!!

Код:

procedure TFormTrevoga.FormActivate(Sender: TObject);
var
D1, D2, N: TDateTime;
X:string;
I:integer;
T:TTime;
begin
I:=DBGridKom.DataSource.DataSet.RecordCount;
X:=DBGridKom.DataSource.DataSet.FieldByName('ADRES_SOUND').AsString;
T:=DBGridKom.DataSource.DataSet.FieldByName('TIME_PLAY').AsDateTime;
N:=Now;
D1:=VarToDateTime(FormTrevoga.Edit1.Text);//Дата открытия формы
D2:=VarToDateTime(FormTrevoga.Edit2.Text);//Время открытия формы
ShowMessage('Количество строк: ' +IntToStr(I)+#13+
          'Адрес: ' +X +#13+
          'Время: ' +TimeToStr(T));
MCISendString(pchar('play ' + (X)), nil, 0, handle);
end;