Delphi ongettext and onsettext not updating value in database field

See more:

Delphi

am a Delphi beginner and are having a problem saving a TimeEdit value to a field that is an integer.The OnGetText procedure works but the OnSetText procedure is not updating the integer field in the database.This is what i have tried so far

What I have tried:

procedure TForm1.TesttimeTableTimeStartGetText(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  Str((Sender.AsInteger/60):6:2,Text);
end;

procedure TForm1.TesttimeTableTimeStartSetText(Sender: TField;
  const Text: string);
Var TempStr  : String;
     TempVal  : LongInt;
     TempTExt : String;
begin
 TempText := Text;
 while Pos(' ', TempText) > 0 do
    TempText[Pos(' ', TempText)] := '0';
 if Pos(':',TempText) > 0 then
   begin
    TempStr := Copy(TempText,1,Pos(':',TempText));
    TempVal := StrToInt(Copy(TempText,Pos(':',TempText)+1,length(TempText) - Pos(':',TempText)));
    TempVal := TempVal + (StrToInt(TempStr)*60);
   end
  else
   begin
    TempVal := StrToInt(TempText)*60;
   end;
 Sender.AsInteger := TempVal;
end;