qt3: fix source
fpc: fix source