Power Point Application

Oi pessoal,
Eu crio uma apresentação power point pelo Delphi, mas não consigo inserir um novo slide na mesma apresentação. Alguém sabe como posso fazer isso?
Eu to utilizando esse código, mas dá erro no identificador (id), só aceita o primeido slide (id=1):

PowerPointApplication.Connect;

if PowerPointApplication.Presentations.Count < 1 then
Apres:=PowerPointApplication.Presentations.Add(0);
else
id:=id+1;

Slide:=Apres.Slides.Add(id,ppLayoutBlank);
Slide.Shapes.Paste;
Apres.Application.Visible:=1;
PowerPointApplication.Disconnect;

Valeu, t+-