Getting Window Class Name

//How to get window class name
procedure GetWinClassName;
Var
 ClassName : Array[0..255] of Char;
 WinClass  : TWndClass;
begin
// 1. Using GetClassName API function
 GetClassName(Handle, ClassName, 256);
 Edit1.Text := StrPas(ClassName);
// 2. Using GetClassInfo API function
 GetClassInfo(Handle, ClassName, WinClass);
 Edit2.Text := StrPas(WinClass.lpszClassName);
end;