Промежуток времени в BottomAxis

[KuevProger]

У меня такая проблема по оси Х идет промежуток времени он у меня выстовляется с edit-ов, но выставляется некорректно т.е. Пр.на часах время от 12.00-12.40 то промежуток выстовляется нормально т.е. ставлю 50 мин,он и показывает промежуток 50 мин., а если 12.40-12.59 то несет охинею т.е ставлю напр. 50 мин. в 12.45 а он показывает промежуток от 12.45 до 12.50 т.е всего 5 мин или вообще может выкинуть ошибку(( в чем проблема подскажите...

procedure TForm3.FormCreate(Sender: TObject);
var d,t:TTime;
    Hour, Min, Sec, MSec: Word;

begin
with chart1 do
  begin
   LeftAxis.Automatic:=false;
   BottomAxis.Automatic:=False;
   LeftAxis.Increment:=StrToFloat(Ed_razmY.Text);
   LeftAxis.maximum:=StrToInt(me_MaxFz.Text);
   LeftAxis.minimum:=StrToInt(me_MinFz.Text);
   LeftAxis.MinorTickCount:=SE2.Value;
   BottomAxis.MinorTickCount:=SE1.Value;


LongTimeFormat:='HH:MM:SS';
d:=Time;
DecodeTime( D, Hour, Min, Sec, MSec);
T:=EncodeTime(Hour, Min, Sec, MSec);
Chart1.BottomAxis.SetMinMax(d,t);

end;
end;

Procedure TtrendThread.Execute;
var
d,t:TTime;
Hour, Min, Sec, MSec: Word;
begin
d:=time;
if d>Form3.Chart1.BottomAxis.Maximum then
  begin
    d:=Form3.Chart1.BottomAxis.Maximum;
    DecodeTime(d,Hour, Min, Sec, MSec);
    Min:=Min+StrToInt(form3.Ed_promVrem.Text); //надо сделать проверку на минуты
    T:= EncodeTime(Hour, Min, Sec, MSec);
    Form3.Chart1.BottomAxis.SetMinMax(d,t);

  end;
Form3.Chart1.series[0].AddxY(d,value[9]);
Form3.SG_graph.Cells[1,0]:=FloatToStr(value[9]);
end;

[Stilet]

Вот тут случай из универа вспомниля: Превратить строку во время, а время взять как Double

:=Double(StrToTime(me_MaxFz.Text));

Но не гарантирую...

[KuevProger]

Сообщение от Stilet

Вот тут случай из универа вспомниля: Превратить строку во время, а время взять как Double

:=Double(StrToTime(me_MaxFz.Text));

Но не гарантирую...

у меня не сдесь касяк

:=Double(StrToTime(me_MaxFz.Text));

здесь у мну выставляется шкала Y она работает норм, а косяк гдето тут

LongTimeFormat:='HH:MM:SS';
d:=Time;
DecodeTime( D, Hour, Min, Sec, MSec);
T:=EncodeTime(Hour, Min, Sec, MSec);
Chart1.BottomAxis.SetMinMax(d,t);
end;
end;

Procedure TtrendThread.Execute;
var
d,t:TTime;
Hour, Min, Sec, MSec: Word;
begin
d:=time;
if d>Form3.Chart1.BottomAxis.Maximum then
  begin
    d:=Form3.Chart1.BottomAxis.Maximum;
    DecodeTime(d,Hour, Min, Sec, MSec);
    Min:=Min+StrToInt(form3.Ed_promVrem.Text); //надо сделать проверку на минуты
    T:=EncodeTime(Hour, Min, Sec, MSec);
    Form3.Chart1.BottomAxis.SetMinMax(d,t);

[KuevProger]

Т.е проблема я думаю в том что прога непонимает что начинается новый час и вместо того чтоб перекидывать на новый час ставит некорректно промежуток или вообще выкидывает ошибку

шожебудет....

[KuevProger]

ну хелпаните ктонить плз! или мож какнить по другому можно сделать?