При нажатии получить текущее время и сохранить его в переменную. При отпускании снова получить текущее время и вычесть из него сохранённое ранее время нажатия. Полученная разница и будет равна продолжительности нажатия. Для удобства можно задействовать функции SecondsBetween, MillisecondsBetween (в зависимости от требуемой точности) из DateUtils:
#include <DateUtils.hpp>
TDateTime pressTime;
void __fastcall TForm1::ButtonMouseDown(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y)
{
pressTime = Now();
}
void __fastcall TForm1::ButtonMouseUp(TObject *Sender, TMouseButton Button, TShiftState Shift, float X, float Y)
{
__int64 duration = MillisecondsBetween(Now(), pressTime);
ShowMessage("Кнопка была нажата " + IntToStr(duration) + " миллисекунд");
}