[DarkByte]

Recuerda usar las etiqueta [ Delphi ] y [ / Delphi ] (sin espacios ) cuando vayas a escribir código en Delphi. Tampoco estaría de más que intentases identar el código.

Lo idento y pongo yo las etiquetas para que el que quiera responder vea más claro el código.

Código Delphi [-]
procedure TFrmVisualizarKVNN.BitBtn5Click(Sender: TObject);
 var
   Bitmap: TBitmap;
   i : integer;
 begin
//begin , aquí hay dos begin y no se a que vienen...
   for i := 1 to MediaPlayer1.Length do
     begin
       Edit3.Text := IntToStr(i);
       MediaPlayer1.StartPos := i;
       MediaPlayer1.EndPos := i;
       MediaPlayer1.Play;
       Bitmap := TBitmap.Create;
     Try
       Bitmap.Width := Panel1.Width;
       Bitmap.Height := Panel1.Height;
       Bitmap.PixelFormat := pf24bit;
       Bitmap.Canvas.CopyRect(Bitmap.Canvas.ClipRect,
       FrmvisualizarKVNN.Canvas,
       Rect(Panel1.Left,
           Panel1.Top,
           Panel1.Left + Bitmap.Width,
           Panel1.Top + Bitmap.Height));
       Image1.Picture.Bitmap := Bitmap;
       Bitmap.SaveToFile(IntToStr(i) + '.BMP'); //CLAVE
     finally
       Bitmap.Free
     end;
 Sleep (250); //250
 Application.ProcessMessages
 end
//end ¿¿y este otro end??
end;

Había partes que al identar me han sonado rara, los he puesto como comentarios, por si son necesarias pero yo no alcanzo para comprender su porqué.