[marcoszorrilla]

Con este código adaptado con retoques mínimos te puede servir.

var fini:Tdate;
begin
try
 fini:=StrToDate(mkFini.text);
  except
    Application.MessageBox('Formato de fecha incorrecto','Atención',mb_Ok +mb_IconQuestion);
  end;
end;

Un Saludo.