1、日期可以直接相减;
2、4、建议你去看看\Demos\Ado下的东东.
3、?
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: ShiftState);
begin
    if Key=$0d then
        ShowMessage('Hi');
end;