ну переведи строку в дату и пиши ее в таблицу В
вот, если что, как перевести "не станданртную" строку в дату, думаю разберешся:
Код:
var
FormatSet:TFormatSettings;
begin
with FormatSet do
begin
DateSeparator:='/';
ShortDateFormat:='dd/mm/yyyy';
end;
StrToDate('Строка_с_твоей_датой',FormatSet);
end;