I tride this myself yesterday and there is really a quite a large collection of problems here (but they are solvable).
1. First of all I just ride to evolute the function:
FourierTransform[Cos[3000 t], t, ω]
I't took a long time so I advice you don't use 3000 but something smaller perhaps...