Hvala Milagro,to resava problem, ali radi i ovo
function TForm1.DisketaUbacena: Boolean;
begin
SetErrorMode(SEM_FAILCRITICALERRORS);
if DiskSize(1)<>-1 then
Result:=True
else
Result:=False;
end;
Krace je,ne znam odakle si naucio ono sto si poslao,reci mi iz kojeg izvora jer niti znam sta onaj ostatak znaci niti bih se sjetio onoga.
Hvala jos jednom!
Kovac