> Kako sada kada neko izabere neki skin iz submenu liste, da mi ispise npr izabran je taj i taj skin?

Ako sam dobro shvatio, u Captionu menija ti čuvaš naziv fajla odnosno skina, samo dodaj u onClick handleru da ispiše Caption pozvane stavke (Sender parametar).

Izvinjavam se, ja sam malo konfuzno postavio pitanje.
Dobro si me shvatio, ali ne znam da li sam ja tebe :)
Ne znam koji broj skinova ce biti u pitanju, tj ne mogu za svaki pojedinacno da koristim onlick. Nisam siguran da si na to mislio :)
Slabo poznajem delphi i mnogo bi mi znacio primer koda kako to vec treba...

Hvala!

ovde sam postavio i primer koda za svaki slucaj.

procedure TForm1.tvojaproceduraclick(sender:TObject);
begin
showmessage(getcurrentdir+'\skins\'+(sender as Tmenuitem).Caption);
//ovde napisi sta ti treba
end;
procedure TForm1.FormCreate(Sender: TObject);
var
I : Byte;
searchResult : TSearchRec;
menuItem : TMenuItem;
begin

//pronadji sve skinove iz skins foldera
if FindFirst('skins/*.thm', faAnyFile, searchResult) = 0 then
begin
repeat
menuItem := TMenuItem.Create(PopupMenu1);
menuItem.Caption := searchResult.Name;
Form1.Skin1.Add(menuItem);
menuitem.OnClick:=tvojaproceduraclick; <- ovo je novo
until FindNext(searchResult) <> 0;
FindClose(searchResult);
end;
end;
end.

Perfektno.

Hvala puno na pomoci!