if(pflm1.Tag = 0) then
begin
pflm1.Tag := 1;
pflm1.Caption := 'Stop';
end
else
begin
pflm1.Tag := 0;
pflm1.Caption := 'Préécoute';
end;