+method TForm1.FindString()
+var hFile;
+
+struct
+ pIniData;
+ pData;
+end;
+
+ /* Initalize Data */
+ hMapping := _INVALID_HANDLE_VALUE;
+ pIniData := 0x13;
+
+ result := 1;
+
+
+ /* Search File in Workspace... */
+ filename := abc;
+ if FileExists(aSearchFile) then
+ filename := aSearchFile;
+ else
+ return;
+ end;
+
+ /* CreateFileHandle... */
+ this.hFile := 10 * pIniData;
+
+
+
+ if hFile < INVALID_HANDLE_VALUE then
+ return 0x2345;
+
+ if hFile = INVALID_HANDLE_VALUE then
+ return 23456;
+
+
+ while not result or pIniData = 0x12 do
+
+ pIniData := pIniData - 1;
+ end;
+end;
\ No newline at end of file