unit id3test; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Button1: TButton; utag: TEdit; utrack: TEdit; ualbum: TEdit; uartist: TEdit; uyear: TEdit; ucomments: TEdit; ugenre: TEdit; Label1: TLabel; Label2: TLabel; Label3: TLabel; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation uses id3; {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); var t : tid3tag; begin t:=readtag('c:\temp\tst.mp3'); if (t.field='') then begin;beep;exit;end; utag.Text:=t.field; utrack.text:=t.track; uartist.text:=t.artist; ualbum.text:=t.album; uyear.text:=t.year; ucomments.text:=t.comments; ugenre.text:=t.genre; end; procedure TForm1.Button2Click(Sender: TObject); var t : tid3tag; begin t.field:='TAG'; t.track:=utrack.text; t.artist:=uartist.text; t.album:=ualbum.text; t.year:=uyear.text; t.comments:=ucomments.text; t.genre:=#0#0; if writetag('c:\temp\tst.mp3',t)=false then beep; end; end.