[ecfisa]

Hola Lutmak.

Para la primera parte de tu pregunta, podes usar la función DaySpan, para lo cuál necesitas incluir la unit DateUtils, en tu caso se usaría así:

var
  NroDias: Integer;
begin
  NroDias:=Trunc(DaySpan(Date, DateTimePicker1.Date));
  ...

La segunda parte:
Si utilizas un TEdit, tendrías que usar algo parecido al código siguiente en el evento OnKeyPress:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8,'.','0'..'9']) then
  begin
    Beep;
    Key:= #0;
  end;
end;

Para usar un TMaskEdit, usa el caracter '#' en Input Mask del Input Mask Editor.
Por ejemplo: La máscara: ####.##;1;_
Usando 12.55, te da la salida: 12__.55
Si queres evitar las líneas usa un blanco para Characters for Blanks.

Saludos.