--- In IBObjects@y..., rr@r... wrote:
> Hi,
>
> I've just realized the following problem:
>
> ---snip---
> procedure TfrmVessels.mETAClick(Sender: TObject);
>
> var
> dtETANew,
> dtETA: TDateTime;
> begin
> dtETA := dmKogge.qVesselAuswahl.FieldByName('ETA').AsDateTime;
> dtETANew := GetETADZeit(dtETA,snETA);
GetETADZeit has caused the error (not anymore!)

Regards

R.Reddemann