[karflake]

GecerliKlasoruAl fonksiyonu aşağıda yer almaktadır:

function GecerliKlasoruAl: string;
begin
  Result := ExtractFilePath(Application.ExeName);
  if Result[Length(Result)] <> '\' then
   Result := Result + '\';
end;