Warum eigentlich immer +''+ ?
Das ergibt doch keinen Sinn, einfach einen leeren String dazwischen machen
So sollte es genügen:
Delphi-Quellcode:
procedure TForm1.FlatSpeedButton7Click(Sender: TObject);
begin
CopyFileEx(Ver+'\*.DB', dira);
CopyFileEx(Ver+'\*.PX', dira);
CopyFileEx(Ver+'\*.val',dira);
end;