Author: Tomas Rutkauskas How to retrieve the text of a single-line edit control Answer: Solve 1: 1 { ... } 2 var 3 FNEText: array[0..127] of Char; 4 begin 5 SendMessage(Edit1.Handle, WM_GETTEXT, Sizeof(FNEText), Integer(@FNEText)); 6 { ... } Solve 2: 7 { ... } 8 var 9 buffer: array[0..$10000] of Char; 10 len: Integer; 11 begin 12 buffer[0] := #0; 13 len := SendMessage(hFocusWin, WM_GETTEXTLENGTH, 0, 0); 14 if len > 0 then 15 SendMessage(hFocusWin, WM_GETTEXT, len + 1, LPARAM(@buffer)); 16 memo1.SetTextBuf(buffer); 17 { ... }