[larexxx]

Уточню: на форме есть текущее время

Код:

procedure TForm1.tmr1Timer(Sender: TObject);
begin
lbl1.Caption:=timetostr(Time);
end;

вот в зависимости от него и надо чтоб автоматически выводилось №смены в Edit