nt GetFileName(HWND hWnd)  
{  
OPENFILENAME ofn;  
TCHAR szFilter[80] = L"TextFiles\0 *.txt\0";  
TCHAR szFileTitle[80];  
FileName[0] = '\0';  
szFileTitle[0] = '\0';  
memset(&ofn,0,sizeof(ofn));  
ofn.lStructSize = sizeof(ofn);  
ofn.hwndOwner = hWnd;  
ofn.lpstrFilter = szFilter;  
ofn.nFilterIndex = 1;  
ofn.lpstrFile = FileName;  
ofn.nMaxFile = sizeof(FileName);  
ofn.lpstrFileTitle = szFileTitle;  
ofn.nMaxFileTitle = sizeof(szFileTitle);  

int a = GetOpenFileName(&ofn);  
if(a)  
return 1;  
else  
return 0;
}

function WorldIs(s: string): boolean;
var
    i: integer;
    b: boolean;
begin
    b:=true;
    for i:=1 to length(s) div 2 do
       begin
          if not s[i]= s[(length(s) - i)+1] then
             begin
                b:=false;
                break;
             end;
       end;  
      result:=b;
end;