1:
2:
3:
4:

if Edit1.Text='Probe'
begin
...
end;					

1:
2:
3:
4:
5:
6:

int GetWindowText(

    HWND hWnd,  // handle of window or control with text
    LPTSTR lpString,  // address of buffer for text
    int nMaxCount   // maximum number of characters to copy
   );					

1:
2:
3:
4:

if buffer = "Probe"
begin
...
end;					

1:
2:
3:
4:
5:

    char *buffer = new char[Edit_GetTextLength(Edit1->Handle) + 1];
    SendMessage(Edit1->Handle, WM_GETTEXT, 64, (long)buffer);
    if (buffer == "Edit1") {
      MessageBox(Handle, buffer, buffer, 0);
    }					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

var
    p: PChar;
    i: integer;
begin
    i := GetWindowTextLength(Edit1.Handle)+1;
    GetMem(p, i);
    GetWindowText(Edit1.handle, p, i);
    if p='Probe' then
      ShowMessage(p);
    FreeMem(p, i);					

1:
2:
3:
4:
5:
6:
7:
8:
9:

var
    s: string;
    i: integer;
begin
    i := GetWindowTextLength(Edit1.Handle);
    SetLength(s, i);
    GetWindowText(Edit1.handle, PChar(s), i+1);
    if s = 'Probe' then
      ShowMessage(s);