Unverständliches Problem mit TClientSocket

[bLume]

also ich habe eine Funktion die einfach nur Checken soll ob ein MySQL Server vorhanden ist.

Delphi-Quellcode:

var
  zSocket: TClientSocket;

...

function mysql_check(target : string) : boolean;
begin
    zSocket.Host:=target;
    zSocket.Port:=3306;
    zSocket.Open;
    if zSocket.Active=True then begin
    zSocket.Close;
    result := true;
    end
    else
    result := false;
end;

Beim Compilen bekomme ich nun keinen Error, aber wenn ich die Funktion aufrufe kommt dieser Fehler:

Exception EAccessViolation in Modul iBot.exe bei 00019668.
Zugriffsverletzung bei Adresse 00419668 in Modul 'iBot.exe'. Lesen von Adresse 0
000003C.

ich habe keine ahnung woran es liegt
bitte helft mir !!!

mfg

bLume