type
  DWORD = LongWord;
  LONG = Integer;
  LCID = DWORD;
  SHORT = Smallint; 

PByte = ^Byte;
PLongint = ^Longint;
PInteger = ^Integer;
PINT = ^Integer;
PLongWord = ^LongWord;
PSmallInt = ^Smallint;
PDWORD = ^DWORD;
LPDWORD = PDWORD;
PDouble = ^Double;
PShortInt = ^ShortInt; 

// for a POINT

typedef struct tagPOINT {
    LONG x;
    LONG y;
} POINT;

// for a RECT

typedef struct _RECT {
    LONG left;
    LONG top;
    LONG right;
    LONG bottom;
} RECT;

Some API Structures:
  MSG = TMsg
  WNDCLASS = TWndClass
  FINDREPLACE = TFindReplace
  MENUITEMINFO = TMenuItemInfo

"the \\ is an \"Escape\" character"

\t   Tab Stop
\'   Single Quote
\"   Double Quote
\?   Question Mark
\\   Backslash
\n   New Line
\r   Carriage Return
\b   Backspace

procedure GetText;
  var
  Length: Integer;
  Text: PChar;
  Str1: String;
begin
 Length := GetWindowTextLength(hEdit1)+1;
 if Length < 2 then Exit;
 GetMem(Text,Length);
 GetWindowText(hEdit1,Text,Length);
 Str1 := String(Text);
 FreeMem(Text);
end;

HANDLE hFile;  // variables are listed at the begining
               // there is NO declaration like "var"
 
HANDLE hTempFile; 
 
DWORD  dwBytesRead, dwBytesWritten; 
 
char szTempName[MAX_PATH]; 
    // szTempName would be an Array[0..MAX_PATH] of Char
char buffer[4096]; 
 
// Open the file. 
 
hFile = CreateFile("ORIGINAL.TXT",        // filename 
// double quotes are use like single quote for Text
    GENERIC_READ,                 // open for reading 
    0,                            // do not share 
    NULL,                         // no security 
    OPEN_EXISTING,                // existing file only 
    FILE_ATTRIBUTE_NORMAL,        // normal file 

    NULL);                        // no attr. template 
if (hFile == INVALID_HANDLE_VALUE) { 
    ErrorHandler("Could not open file."); // process error 
} 
 
// Create a temporary file. 
 
GetTempFileName("\\TEMP", // dir. for temp. files 
    "NEW",                // temp. filename prefix 
    0,                    // create unique name 
    szTempName);          // buffer for name 

hTempFile = CreateFile((LPTSTR) szTempName,  // filename
// the (LPTSTR) szTempName is roughly like Typecasting in Pascal
// PChar(szTempName); 
    GENERIC_READ | GENERIC_WRITE, // open for read-write 

    0,                            // do not share 
    NULL,                         // no security 
    CREATE_ALWAYS,                // overwrite existing file
    FILE_ATTRIBUTE_NORMAL,        // normal file 
    NULL);                        // no attr. template 

if (hTempFile == INVALID_HANDLE_VALUE) { 
    ErrorHandler("Could not create temporary file."); 
}  

do 
{
    if (ReadFile(hFile, buffer, 4096, 
        &dwBytesRead, NULL)) { 
// the & above is roughly like the @ in Pascal
        CharUpperBuff(buffer, dwBytesRead); 
 
        WriteFile(hTempFile, buffer, dwBytesRead, 
            &dwBytesWritten, NULL); 
    } 
} while (dwBytesRead == 4096);  
 
CloseHandle(hFile); 
CloseHandle(hTempFile); 
 
// Move the temporary file to the new text file.
 
if (!MoveFile(szTempName, "ALLCAPS.TXT")) { 
    ErrorHandler("Could not move temp. file."); 
}

var
  hFile, hTempFile: THandle; 
  BytesRead, BytesWritten: Cardinal; 
  TempName: Array[0..MAX_PATH-1] of Char; 
  buffer: Array[0..4095] of Char;

hFile := CreateFile('ORIGINAL.TXT',        // filename 
    GENERIC_READ,                          // open for reading  
    0,                                     // do not share  
    nil,                                   // no security  
    OPEN_EXISTING,                         // existing file only  
    FILE_ATTRIBUTE_NORMAL,                 // normal file  
    0);                                    // no attr. template  
if hFile = INVALID_HANDLE_VALUE then
begin 
  ErrorHandler('Could not open file.'); // process error
  Exit;
end;

// Create a temporary file.  
 
GetTempFileName('\\TEMP', // dir. for temp. files  
    'NEW',                // temp. filename prefix  
    0,                    // create unique name  
    TempName);            // buffer for name  

hTempFile := CreateFile(TempName,  // filename  
    GENERIC_READ or GENERIC_WRITE, // open for read-write  

    0,                             // do not share  
    nil,                           // no security  
    CREATE_ALWAYS,                 // overwrite existing file 
    FILE_ATTRIBUTE_NORMAL,         // normal file  
    0);                            // no attr. template  

if hTempFile = INVALID_HANDLE_VALUE then
begin
  CloseHandle(hFile); 
  ErrorHandler('Could not create temporary file.');
  Exit;
end;

Repeat
  if ReadFile(hFile, buffer, SizeOf(buffer), 
        BytesRead, nil) then 
  begin
   CharUpperBuff(buffer, BytesRead); 
   WriteFile(hTempFile, buffer, BytesRead, 
            BytesWritten, nil);
  end;
until BytesRead <> SizeOf(buffer); // 4096  
 
CloseHandle(hFile); 
CloseHandle(hTempFile);

// Move the temporary file to the new text file. 
 
if not MoveFile(TempName, 'ALLCAPS.TXT') then 
    ErrorHandler('Could not move temp. file.');