[Karsh]

Исправь на:

Код:

var
  buffer : array[0..1024] of Char;
...
SendMessage(Edit_Str, WM_GETTEXT, SizeOf(buffer), Integer(@buffer));
MessageBox(0, buffer, '', 0);

Или можно еще так:

Код:

var
  buffer : array[0..1024] of Char;
...
GetWindowText(Edit_Str, buffer, SizeOf(buffer));
MessageBox(0, buffer, '', 0);