Tratamento com Datas

Irá determinar o dado como Ex: " 01.02.2013 00:00:00 "


procedure TForm.GerarClick(Sender: TObject);
var
    Data1    : String[19];
    Data2    : String[19];
 
Begin

           Data1 := Copy( DataInicio.Text,1,2 ) + '.' +
                         Copy( DataInicio.Text,4,2 ) + '.' +
                         Copy( DataInicio.Text,7,4 ) + ' 00:00:00';

           Data2 :=  Copy( DataFim.Text,1,2 ) + '.' +
                          Copy( DataFim.Text,4,2 ) + '.' +
                          Copy( DataFim.Text,7,4 ) + ' 23:59:59';