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