Foros Club Delphi - ayuda con funcion copy

Buenas tengo esta parte de codigo con lo que hago en mi reporte en 2 labels es repartir una direccion si es demasiado larga y sobrepasa los 45 caracteres
ahora el problema es que cuando llega al final de los 45 caracteres y escribe en el segundo label desde el 46 caracteres quisiera que en el primer label al acabar ponga una raya "-" osea algo asi

direccion de prueba es es-
ta

como lo podria hacer ?
espero me ayuden
gracias

Código Delphi [-]totalS := md.tfacturas.FieldByName('Direccion').AsString;
       vComponente := fInformee.facturadesign.ReportForm.FindComponent('dire1');
      (vComponente as TQRLabel).Caption :=  Copy(totalS, 1, 45);

       vComponente := fInformee.facturadesign.ReportForm.FindComponent('dire2');
       (vComponente as TQRLabel).Caption :=  Copy(totalS, 46, 45);